日期:2014-05-17  浏览次数:20489 次

delphi 语句问题 在线等
if not ADOQuery1.FieldByName('籍贯').IsNull then
begin
ComboBox2.Text:=ADOQuery1.FieldByName('籍贯').Value;//这句无效啊
showmessage(ADOQuery1.FieldByName('籍贯').Value);但是这句有效
end;
我在ComboBox2的属性里面设置了csDropDownList
怎么才能让他有效啊
Delphi ComboBox value

------解决方案--------------------
我不知道你要的效果是怎么样的,所以把三种可能性都列出来。

(1)combobox2.itemindex:=combobox2.item.indexof(ADOQuery1.FieldByName('籍贯').asstring); 
    combobox2中要有数据。
(2)combobox2.text:=ADOQuery1.FieldByName('籍贯').asstring;  
    能付值进去,但不能显示在combobx2的下拉框列中。
(3)combobox2.item.add(ADOQuery1.FieldByName('籍贯').asstring);
     combobox2.itemindex:=combobox2.item.count-1;
    或 combobox2.itemindex:=combobox2.item.indexof(ADOQuery1.FieldByName('籍贯').asstring);
    作为一个新值,写到combobox2中并显示出来