X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: if <YourCheckBox>Checked then WITH dbgpA.DataController.Filter.Root do AddItem(dbgPaEXPENSE_NUMBERS, foLike, lcbFilials.Text, lcbFilials.Text) else dbgPaEXPENSE_NUMBERS.Filtered := false; | Спасибо, то, что нужно. Немного переделав, получил рабочую процедуру Код: if (cboxFilials.Checked) then begin dbgPaEXPENSE_NUMBERS.Filtered := false;//если этой строки не будет, то в фильтр постоянно будут добавляться и добавляться условия WITH dbgpA.DataController.Filter.Root do AddItem(dbgPaEXPENSE_NUMBERS, foLike, '%'+lcbFilials.Text+'%', lcbFilials.Text); end else dbgPaEXPENSE_NUMBERS.Filtered := false; if not dbgPa.DataController.Filter.Active then dbgPa.DataController.Filter.Active := true; |
---------- /не мы такие, жизнь такая/ |
|