delphi sql语句出错
aquery1.edit;
for I := 1 to aquery1.RecordCount+1 do
begin
aquery1.Fields[2].value := stringgrid1.Cells[3,i];
if not aquery1.eof then aquery1.Next;
end;
aquery1.post;
运行说 dataset not in edit or insert mode
如果把if not aquery1.eof then aquery1.Next;
不会报错
请问怎么修改
答案:这样写当然不对了!按钮事件代码可以这样写:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer ;
begin
Query1.First ;
i:=1 ;
while not Query1.Eof do
begin
Query1.Edit ;
Query1.Fields[2].Value :=StringGrid1.Cells[3,i] ;
Query1.Post ;
i:=i+1 ;
Query1.Next ;
end;
end;
上一个:delphi的控件问题
下一个:delphi登陆界面代码