|
#1
|
||||
|
||||
Фильтр для delphi
Здравствуйте!!! У меня такая проблема: нужно в Combobox занести записи из столбца DBGrid для фильтрации данных.
Я использовала следующий код: Код:
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to ADOQuery1.RecordCount-1 do begin Combobox1.Items.Add(ADOQuery1.FieldbyName('Nazvanie').AsString); ADOQuery1.Next; end; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin ADOQuery1.Filter:='Nazvanie ='+QuotedStr(Combobox1.Text); ADOQuery1.Filtered:=true; end; Все это работает, НО можно ли исключить повторяющиеся значения или как-нибудь по-другому заполнить combobox, например через SQL запрос??? Последний раз редактировалось Admin, 10.12.2014 в 22:15. |