请问如何在DELPHI中通过下拉列表，显示数据库中的一个属性的一列值？

Question

如题，在线等。

Answer 1

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;

Answer 2

用dblookupcombobox控件,listsource设成想要显示的数据库的数据源，listfield设成想要显示的字段名

Answer 3

qwertyasd留言说:
用DBLookupComboBox
但没用代码来得灵活，而且可以改进，用我的代码把方便！

Answer 4

我这样试了:在界面上放4个控件，分别是
DATABASE,TABLE,DATASOURSE,DBLOOKUPCOMBOBOX,
前面3个都连好了，照妮妮的方法，设置了DBLOOKUPCOMBOBOX,
然而在运行的时候，DBLOOKUPCOMBOBOX中还是没有数据，
怎么会这样？
还有什么问题?

Answer 5

好象还有一个属性是keyfield，也得选一下

Answer 6

用delphi自带的数据库感知控件，如DBLOOKUPCOMBOBOX这些控件，进行设置后就可以显示，但是，如果数据重复，它也会重复的显示出来的，所以若是用于数据选择功能时，可以处理一下。

Answer 7

用delphi自带的数据库感知控件，DBLOOKUPCOMBOBOX