Question

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; 不会报错 请问怎么修改

Answer 1

这样写当然不对了！按钮事件代码可以这样写： 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;