这个问题可以这样来解决
with query1 do
begin
close;
sql.clear;
sql.add('select distictn bh from table1');
open;
first;
combobox1.clear;
while not( query1.eof) do
begin
combobox1.items.add(fieldbyname('bh').asstring);
Next;
end;
end; //combobox1操作
for I := 0 to combobox1.item.count-1 do
begin
if combobox1.text <>'' then
with query1 do
begin
close;
sql.clear;
sql.add('select * from table1 where bh = :bh');
params.items[0].asstring := combobox1.text;//or
//params.items[0].asinteger:=strtoint(combobox1.text);
open;
first;
while not (query1.eof) do
begin
stringvalue := Stringvalue + fieldbyname('value').asstring;
end;
end;
query2.append//
with query2 do
beign
fieldbyname('bh').asinteger := Strtoint(combobox1.text);
fieldbyname('valeu').asstring := Stringvalue;
post;
end;
end;
with query1 do
begin
close;
sql.clear;
sql.add('select distictn bh from table1');
open;
first;
combobox1.clear;
while not( query1.eof) do
begin
combobox1.items.add(fieldbyname('bh').asstring);
Next;
end;
end; //combobox1操作
for I := 0 to combobox1.item.count-1 do
begin
if combobox1.text <>'' then
with query1 do
begin
close;
sql.clear;
sql.add('select * from table1 where bh = :bh');
params.items[0].asstring := combobox1.text;//or
//params.items[0].asinteger:=strtoint(combobox1.text);
open;
first;
while not (query1.eof) do
begin
stringvalue := Stringvalue + fieldbyname('value').asstring;
end;
end;
query2.append//
with query2 do
beign
fieldbyname('bh').asinteger := Strtoint(combobox1.text);
fieldbyname('valeu').asstring := Stringvalue;
post;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货