花
花信子
Unregistered / Unconfirmed
GUEST, unregistred user!
ADOQuery1连接‘规格表’，ADOQuery2连接‘型号表’；其中，‘型号表’是‘规格表’的从表，通过 规格 联系。
DataSource1.DataSet:=ADOQuery1;
ADOQuery2.DataSource:=DataSource1;
ADOQuery2.SQL.Text:='select * from 型号 where 规格=:规格';
ADOQuery2.LockType:=ltBatchOptimistic; //缓存打开
我在执行以下过程中，只出现了最后一个型号。而且，ADOQuery2滚动后，那一条数据也消失了。
j:=strtoint(edit1.Text); // 型号数量
for i:=1 to j do
begin
ADOQuery2.Append;
ADOQuery2.FieldByName('规格').AsString:=ADOQuery1.fieldbyname('规格').AsString;
ADOQuery2.FieldByName('型号').AsString:=ADOQuery1.fieldbyname('规格').AsString+'-'+inttostr(i);
end;
请帮我看一下。谢谢！
DataSource1.DataSet:=ADOQuery1;
ADOQuery2.DataSource:=DataSource1;
ADOQuery2.SQL.Text:='select * from 型号 where 规格=:规格';
ADOQuery2.LockType:=ltBatchOptimistic; //缓存打开
我在执行以下过程中，只出现了最后一个型号。而且，ADOQuery2滚动后，那一条数据也消失了。
j:=strtoint(edit1.Text); // 型号数量
for i:=1 to j do
begin
ADOQuery2.Append;
ADOQuery2.FieldByName('规格').AsString:=ADOQuery1.fieldbyname('规格').AsString;
ADOQuery2.FieldByName('型号').AsString:=ADOQuery1.fieldbyname('规格').AsString+'-'+inttostr(i);
end;
请帮我看一下。谢谢！