combobox1.items.clear; adoquery1.first; while not adoquery1.eof do begin combobox1.items.add(adoquery1.fields[0].asstring+' '+adoquery1.fields[1].asstring); adquery1.next; end;
ComboBox1.Items.Clear; Query1.close; Query1.SQL.Text := ' select Name+'' ''+ID as Stemp from table1 where …… '; Query1.open; Query1.first;while not Query1.Eof do begin ComboBox1.Item.Add(Query1.fieldbyname(Stemp).asstring,nil); Query1.next; end;
里面的内容是STRING
这种+操作也不需要什么代码吧,var
aa:string;
begin
...
aa:=adoquery1.fields[0].asstring+' '+adoquery2.fields[1].asstring;
...
combobox1.items.add(aa);
end;
.......添多
http://www.resbbs.com/dispbbs.asp?boardid=9&id=57&star=#143
不过你的程序因该可以,因为员工号的长度是统一的,
你可以用一个StrTemp:=员工号+‘ ’+‘|’+‘ ’+姓名;(其中‘ ’为几个空格,自己设)
combobox1.items.add(StrTemp);
adoquery1.first;
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fields[0].asstring+' '+adoquery1.fields[1].asstring);
adquery1.next;
end;
Query1.close;
Query1.SQL.Text := ' select Name+'' ''+ID as Stemp from table1 where …… ';
Query1.open;
Query1.first;while not Query1.Eof do
begin
ComboBox1.Item.Add(Query1.fieldbyname(Stemp).asstring,nil);
Query1.next;
end;
还是trim
在取出combobox的值后判断空格取出员工号