Question

delphi语言中dbgrideh里多行记录如何一起保存

我在dbgrid里面输入多行记录，为什么总是保存第一行的数据，循环到第二次的时候我show出来显示插入的值都是空值，第二行以后都没有保存进去。显示的都是为空值，求代码（以下是我写的保存记录）。我用的是dbedit。
问题二，为什么我给dbedit赋值 的时候有显示出来，当我用鼠标点击dbedit的时候值就没有了。如何解决。谢谢。

for I := 0 to DBGrideh1.FieldCount-1 do // Iterate
begin
sqltemp1:=sqltemp1+'['+DBGrideh1.Fields[i].FullName+'],';
sqltemp:=sqltemp+'['+DBGrideh1.Fields[i].FullName+'] varchar(1000),';
end; // for
sqltemp1:=Copy(sqltemp1,1,Length(sqltemp1)-1);
sqltemp:=Copy(sqltemp,1,Length(sqltemp)-1);
while not ado_zd.Eof do
begin
with ADO_ZD do
begin
sqltemp2:='';
for I := 0 to ado_zd.FieldCount - 1 do
begin
sqltemp2:=sqltemp2+''''+ado_zd.Fields[i].AsString+''',';
end;
sqltemp2:=Copy(sqltemp2,1,Length(sqltemp2)-1);
Close;
SQL.Clear;
SQL.Add('insert into ZDTABLE('+sqltemp1+') ');
SQL.Add('values ('+''+''+sqltemp2+')');
showmessage(sql.Text );
ExecSQL;
end;
dm_f.adoquery2.Next;

end;
高分求解啊
如果解决了再加分

Answer 1

for I := 0 to ado_zd.FieldCount - 1 do
begin
sqltemp2:=sqltemp2+''''+ado_zd.Fields[i].AsString+''',';
i:=i+1;
end;

Answer 2

不太理解你的意图，如果仅仅是保存dbgrideh的数据，不需要学这么多代码。最好使用adodataset作为dbgrideh的数据集控件然后把控件的控件的属性设置一下（一般把looktype设置成ltBatchOptimistic），然后在你的软件里面加多一个按钮，让用户一按按钮就真正保存你的数据，一般在按钮的单击事件写入类似这样的代码： adodataset1.UpdateBatch(arAll);
对于问题二，和上面的方法类似，数据集的属性设置一样，这样就不用写一句任何赋值的代码，但要在保存的时候与上面一样。用到UpdateBatch(arAll);