您所在位置：主题：紧急求助：请高手帮忙修改一下，update这样使用错在哪里？
david_lin
[专家分：0] 发布于 2009-08-13 15:26:00
rs.SQL.Text:='select * from fenpei';
rs.Open;
rs2.SQL.Text:='select * from info';
rs2.Open;
while not rs2.Eof do
begin
renshu:=strtoint(rs2.fieldbyname('人数').asstring);
fenpeidw:=rs2.fieldbyname('单位').AsString;
for i:=1 to renshu do
begin
rs.SQL.add('update fenpei set 分配单位='''+fenpeidw+'''');
rs.ExecSQL;
rs.Next;
end;
rs2.Next;
end;
rs.Open;
rs2.SQL.Text:='select * from info';
rs2.Open;
while not rs2.Eof do
begin
renshu:=strtoint(rs2.fieldbyname('人数').asstring);
fenpeidw:=rs2.fieldbyname('单位').AsString;
for i:=1 to renshu do
begin
rs.SQL.add('update fenpei set 分配单位='''+fenpeidw+'''');
rs.ExecSQL;
rs.Next;
end;
rs2.Next;
end;