» Использование DevExpress (часть 4)

vcrank
а после
Код: dsMain.DataSet.Refresh

tanaseduard
Проблема решилась. Непонятным мне способом, но решилась
Убрал значение из свойства cxGridDBTableMain.DataController.KeyFielNames
Вроде работает и косяков сходу не заметил

И чтобы 2 раза не ходить...
Напомните пожалуйста, как сделать так, чтобы отображалась только одна дочерняя сетка? По дефолту видны все дочерние сетки, но данные отображаются только в текущей. Хотелось бы скрывать все пустые сетки

Sufferer

Цитата:

итуация вообще загадочная, если сделать сортировку в источнике, то имеем один набор данных при тех-же настройках грида, а если без сортировки, то другой

Дитейл нужно сортировать по ключу-связке с мастером - это правило железное, и многие очень часто это забывают. Давайте пример, посмотрим что и как у вас не так.

vcrank
Поддержываю vladman.
Хочеться взглянуть на обьекты и их параметры.

Цитата:

Дитейл нужно сортировать по ключу-связке с мастером - это правило железное, и многие очень часто это забывают. Давайте пример, посмотрим что и как у вас не так.

А вот это мысль похоже верная оказалась. Спасибо за подсказку. Т.е. получается, что деталь выбирается не запросом по полю - ключу, а последовательным чтением от первого вхождения ключа до несовпавшего. Не знал.

Sufferer

Цитата:

Т.е. получается, что деталь выбирается не запросом...

Запросом выбираются все записи всех дитейлов. А "привязка" записей дитейла к записи мастера осуществляется уже непосредственно датаконтроллером. И это все спрведливо только для режима DetailInSQLMode = False.

Sufferer
Если выставить DetailInSQLMode = True. то можно будет раскрывать только 1 уровень, что не всегда есть хорошо.

Добрый день.

Столкнулся вот с такой проблемкой.
В EhLib есть возможность настройки редактора колонки как комбобокса с отображаемыми значениями по PickList и ключевыми по KeyList.
В cxGrid я такого не нашел что-то. Есть ли возможность такое реализовать?

junik
А колонка со свойством Propeties=LookupComboBox не то?

junik
MRUEdit, LookupCombobox в Properties?

Дело в том, например, что в таблице есть обычное строковое поле, значения которого например С или N или R могут быть.
В гриде нужно отобразить эти значения нормально, т.е. расшифровать пользователю.

LookupCombobox - ему нужен ListSource, которого нет.
MRUEdit мог бы помочь для числового поля.

junik
ImageComboBox, без картинок

junik

dxMemData. Пишешь там. Потом вяжешь ComboBox.
Удобно быстро и сердито.

junik
Еще вариант: на событие OnGetDisplayText у колонки менять AText

tanaseduard, linker_2009

Ок, бум пробовать.
С OnGetDisplayText не получится, т.к. в редакторе не будет отображаться измененный текст.

Подскажите, пожалуйста, как можно при экспорте экспортировать только открытые группы? ExpandAll - раскрывает все группы, как заставить экспортировать именно только открытые группы?

chydachok
Тесть не экспортировать вообще закрытые группы, или при экспорте не раскрывать их?
Также куда экспортируете и как?
Какая степень вложенности?

tanaseduard

Цитата:

Тесть не экспортировать вообще закрытые группы, или при экспорте не раскрывать их?

При экспорте не раскрывать

Цитата:

Также куда экспортируете и как?

в pdf

Цитата:

Какая степень вложенности?

степень 2 и выше

С печатью все просто, указываю MyView.OptionsPrint.ExpandAllGroups=False, после чего выводятся на печать группы и группы мною раскрытые, с экспортом так не выходит.

chydachok


Цитата:

Цитата:Также куда экспортируете и как?


в pdf

Подскажите пожалуйста как вы экспортируете.

tanaseduard

Цитата:

Подскажите пожалуйста как вы экспортируете.

Код: DevExpress.XtraPrinting.PrintingSystem ps = new DevExpress.XtraPrinting.PrintingSystem();
DevExpress.XtraPrinting.PrintableComponentLink link = new DevExpress.XtraPrinting.PrintableComponentLink(ps);
link.Component = myGridControl;
link.Landscape = true;
link.CreateDocument();
link.PrintingSystem.ExportToPdf("Count.pdf");

А что, 6 грид так и не научился отображать заголовки колонок по вертикали?

Вроде нет, делаю сам через перерисовку.
Хотя хотелось бы....

А собственная перерисовка при экспорте в Excel остается или грид ее игнорирует?

fitget
Непробывал.
Но насколько читал, то он ее киляеет.
На выходных попробую, отпишусь.

Привет всем!
Прошу помочь в следующем.
Есть TcxDBCheckComboBox = checkCB
Нужно сохранять значения в базе в таком формате: (1,45,345,500). То-есть, ID-шники из справочника через запятую.

Пробую делать так:
При заполнении chB позиций присваиваю tag=id и название.
Обрабатываю OnEditValueToStates и OnStatesToEditValue.

procedure Frm.checkCBPropertiesEditValueToStates(
Sender: TObject; const AValue: Variant; var ACheckStates: TcxCheckStates);
var I, J: integer;
tsl: TStringList;
begin
if checkCB.EditValue = null then Exit;
tsl := TStringList.Create;
Try
tsl.CommaText := checkCB.EditValue;
for I := 0 to checkCBServices.Properties.Items.Count - 1 do
for J := 0 to tsl.Count - 1 do
if StrToInt(tsl[J]) = checkCB.Properties.Items[i].Tag then
checkCB.States[i] := cbsChecked
else
checkCB.States[i] := cbsUnchecked;
Finally
tsl.Free;
End;

procedure TfmTrvlClientsFrm.checkCBPropertiesStatesToEditValue(
Sender: TObject; const ACheckStates: TcxCheckStates; out AValue: Variant);
var I: integer;
tsl: TStringList;
begin
tsl := TStringList.Create;
try
for I := 0 to checkCB.Properties.Items.Count - 1 do
if checkCB.States[I] = cbsChecked then
tsl.Add(intToStr(checkCB.Properties.Items[I].Tag));
checkCB.EditValue := tsl.CommaText;
finally
tsl.Free;
end;
end;

Но чего-то не работает... В чём может быть ошибка? Может не втом направлении копаю?

Цитата:

VitOs2

1. procedure TfmTrvlClientsFrm.checkCBPropertiesStatesToEditValue(
Sender: TObject; const ACheckStates: TcxCheckStates; out AValue: Variant);
var I: integer;
tsl: TStringList;
begin
tsl := TStringList.Create;
try
for I := 0 to checkCB.Properties.Items.Count - 1 do
if checkCB.States[I] = cbsChecked then
tsl.Add(intToStr(checkCB.Properties.Items[I].Tag));
checkCB.EditValue := tsl.CommaText;
finally
tsl.Free;
end;
end;

Этот обработчик возвращает AValue в качестве значения EditValue TcxDBCheckComboBox. По коду видно что вы заполняете локальный TStringList а затем просто грохаете его. присвойте строку TStringList значению AValue и все должно заработать.

2. procedure Frm.checkCBPropertiesEditValueToStates(
Sender: TObject; const AValue: Variant; var ACheckStates: TcxCheckStates);
var I, J: integer;
tsl: TStringList;
begin
if checkCB.EditValue = null then Exit;
tsl := TStringList.Create;
Try
tsl.CommaText := checkCB.EditValue;
for I := 0 to checkCBServices.Properties.Items.Count - 1 do
for J := 0 to tsl.Count - 1 do
if StrToInt(tsl[J]) = checkCB.Properties.Items[i].Tag then
checkCB.States[i] := cbsChecked
else
checkCB.States[i] := cbsUnchecked;
Finally
tsl.Free;
End;

почти та же проблема. При присвоении TcxDBCheckComboBox значения EditValue (вашей строки) срабатывает этот обработчик. в AValue уже есть ваша строка вот ее и разбирайте.
Сейчас нет Делфей под руками иначе набросал бы побыстрому рабочий вариант.

Да, забыл добавить. Изменять и считывать состояния лучше через ACheckStates это тоже параметр процедуры.

dimm78, большое спасибо!

Я чего-то сразу не понял значения параметров AValue и ACheckStates (плохо хелп читал).
TStringList использовал, для удобного формирования строки id-шникаов через запятую.
Если ими пользоваться, то все работает, как часы! Если кому еще надо будет, реализация следующая:

procedure TfmTrvlClientsFrm.checkCB1PropertiesEditValueToStates(Sender: TObject;
const AValue: Variant; var ACheckStates: TcxCheckStates);
var I, J: integer;
tsl: TStringList;
begin
if AValue = null then Exit;
tsl := TStringList.Create;
Try
tsl.CommaText := AValue;
for I := 0 to checkCB1.Properties.Items.Count - 1 do
ACheckStates[i] := cbsUnchecked;
for I := 0 to checkCB1.Properties.Items.Count - 1 do
for J := 0 to tsl.Count - 1 do
if StrToInt(tsl[J]) = checkCB1.Properties.Items[i].Tag then
ACheckStates[i] := cbsChecked;
Finally
tsl.Free;
End;
end;

procedure TfmTrvlClientsFrm.checkCB1PropertiesStatesToEditValue(Sender: TObject;
const ACheckStates: TcxCheckStates; out AValue: Variant);
var I: integer;
tsl: TStringList;
begin
tsl := TStringList.Create;
try
for I := 0 to checkCB1.Properties.Items.Count - 1 do
if checkCB1.States[I] = cbsChecked then
tsl.Add(intToStr(checkCB1.Properties.Items[I].Tag));
AValue := tsl.CommaText;
finally
tsl.Free;
end;
end;

Добрый день.
У меня есть грид в котором одно из полей lookupcombobox
пользователь выбирает из этого lookupcomboboxа улицу, при вводе начальных букв улицы данные в lookupcomboboxе сортируются, необходимо чтобы при отсутствии необходимых данных пользователю предлагалось добавить свой варинт. Пробовал постоянно проверять
FilteredrecordCount но он не меняется.
Помогите куда ковырять, сам не могу разобраться

projection120
Может так подойдет?
DropDownListStyle=lsEditFixedList

Можно ли настроить грид так, что бы выделенная сетка не отображалась? (т.е. была видна только одна дочерняя сетка)