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