首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > SQL Server >

delphi 语句有关问题

2013-07-01 
delphi 语句问题 在线等if not ADOQuery1.FieldByName(籍贯).IsNull thenbeginComboBox2.Text:ADOQuery

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

热点排行