delphi 语句问题 在线等
if not ADOQuery1.FieldByName('籍贯').IsNull then
begin
ComboBox2.Text:=ADOQuery1.FieldByName('籍贯').Value;//这句无效啊
showmessage(ADOQuery1.FieldByName('籍贯').Value);但是这句有效
end;
我在ComboBox2的属性里面设置了csDropDownList
怎么才能让他有效啊
------解决方案--------------------
我不知道你要的效果是怎么样的，所以把三种可能性都列出来。

（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中并显示出来