我也经常用你所说的功能但我用combobox,我觉得这样比较灵活,我最讨厌设置这样那样的参数了! 这是我写的一个过程:procedure additem(dataset: TADODataSet;combo:Tcombobox;tabname:string;fieldname:string;bm:boolean) ; begin combo.Items.Clear; DataSet.CLOSE; DataSet.commandtext:='select * from '+tabname ; DataSet.open; while not DataSet.Eof do begin if bm=true then combo.Items.Add(DataSet.FieldByName('编码').asstring+'--'+DataSet.FieldByName(fieldname).asstring) else combo.Items.Add(DataSet.FieldByName(fieldname).asstring); DataSet.Next; end; DataSet.close; end;
何必用dbcombox,
KeyField是不是必须的我忘了,你一试便知。
这是我写的一个过程:procedure additem(dataset: TADODataSet;combo:Tcombobox;tabname:string;fieldname:string;bm:boolean) ;
begin
combo.Items.Clear;
DataSet.CLOSE;
DataSet.commandtext:='select * from '+tabname ;
DataSet.open;
while not DataSet.Eof do begin
if bm=true then
combo.Items.Add(DataSet.FieldByName('编码').asstring+'--'+DataSet.FieldByName(fieldname).asstring)
else combo.Items.Add(DataSet.FieldByName(fieldname).asstring); DataSet.Next;
end;
DataSet.close;
end;