procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
adoquery1.Close;
adoquery1.SQL.Text:='select formno,funcno,name,menu_order from forminfo';
adoquery1.Open;
for i:=1 to 2 do
begin
adoquery1.Append;
ADOQuery1.FieldByName('formno').AsString :='aa'+inttostr(i);
ADOQuery1.FieldByName('name').AsString :='bb'+inttostr(i);
ADOQuery1.FieldByName('funcno').AsString:='cc'+inttostr(i);
ADOQuery1.FieldByName('menu_order').AsString:='dd'+inttostr(i);
end;
dbgrid1.Refresh;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.CancelBatch(arAll);
end;
错误信息:Row handle refrred to a deleted row or a row ed for deletion.
哪位高手告诉我为什么?
var i:byte;
begin
adoquery1.Close;
adoquery1.SQL.Text:='select formno,funcno,name,menu_order from forminfo';
adoquery1.Open;
for i:=1 to 2 do
begin
adoquery1.Append;
ADOQuery1.FieldByName('formno').AsString :='aa'+inttostr(i);
ADOQuery1.FieldByName('name').AsString :='bb'+inttostr(i);
ADOQuery1.FieldByName('funcno').AsString:='cc'+inttostr(i);
ADOQuery1.FieldByName('menu_order').AsString:='dd'+inttostr(i);
end;
dbgrid1.Refresh;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.CancelBatch(arAll);
end;
错误信息:Row handle refrred to a deleted row or a row ed for deletion.
哪位高手告诉我为什么?
解决方案 »
- 浮点数的小问题
- delphi判断edit框里输入的是否为IP地址
- 如何使 DateTimePicker 允许输入如 25:10分,30:10分的时间?
- 初学rave的问题,连接viewdata时报错A component named driverdataview1 already exits.
- 提示FROM子句语法错误,请指教,在线等待中,谢谢!
- 如何进行发票连打?有人给个实例或思路吗?分不够再加
- 谁帮来我????
- 求助,手头没有Delphi,谁把delphi自带的那个imageedit发一个给我,急!!
- ==就这么点分数了:关于Oracle,Delphi,安装制作的问题?(高手请进)===
- 请教各位:如何获得TOleContainer中的对象的大小(指的是存贮的大小,而不是长和宽)?
- 求助!数据库升级!
- 索引与排序的区别??
ADOQuery1.Post; //加这看看。
end;
ADOQuery1.Post; //加这看看。
end;
。
确定表的1、2 条记录正常?