B
bluebob
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ToolButton7Click(Sender: TObject);
var findstr:string;
begin
findstr:=INPUTBOX('查询','请输入关键字','');
Adodataset1.Locate('CONTENT',findstr,[loPartialKey]);
end;
出错信息
EOleException with message '指令不能被打开'
--------------------------------------------------------------
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
adodataset1.Edit;
adodataset1.DeleteRecords(arcurrent); //adodataset1.Delete；一样
end;
出错信息
EOleException with message '行句柄引用了一个已被删除的行或被标识未删除的行’
var findstr:string;
begin
findstr:=INPUTBOX('查询','请输入关键字','');
Adodataset1.Locate('CONTENT',findstr,[loPartialKey]);
end;
出错信息
EOleException with message '指令不能被打开'
--------------------------------------------------------------
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
adodataset1.Edit;
adodataset1.DeleteRecords(arcurrent); //adodataset1.Delete；一样
end;
出错信息
EOleException with message '行句柄引用了一个已被删除的行或被标识未删除的行’
