值添加到一个DBCombobox中: ADOQuery1.First; DBComboBox1.Items.Clear; while not ADOQuery1.Eof do begin DBComboBox1.Items.Append(ADOQuery1['指定字段']); ADOQuery1.Next; end
除了这语句,好像没别的了: select distinct field from table1 group by field 再加:samcrm(阿靖) 兄的就行了
var i:integer; begin combobox1.Items.Text:=''; with data do begin //将*添入到列表框中 Close; sql.add('select field from tabel group by fields '; open; first; for i:=1 to recordcount do begin combobox1.Items.Add(fields[0].asstring); next; end; end; end;
采用循环就可放入.
ADOQuery1.First;
DBComboBox1.Items.Clear;
while not ADOQuery1.Eof do
begin
DBComboBox1.Items.Append(ADOQuery1['指定字段']);
ADOQuery1.Next;
end
select distinct field from table1 group by field
再加:samcrm(阿靖) 兄的就行了
BCombobox.DataFeild:=Query.那个字段。
var i:integer;
begin
combobox1.Items.Text:='';
with data do begin //将*添入到列表框中
Close;
sql.add('select field from tabel group by fields ';
open;
first;
for i:=1 to recordcount do
begin
combobox1.Items.Add(fields[0].asstring);
next;
end;
end;
end;
BCombobox.DataFeild:=Query.那个字段。正确!====================================================================像和尚的唐僧====================================================================