begin
adoTable1.Open; with adotable1 do
begin
adoTable1.Edit;
if (adoTable1.Fields[0].AsString=Edit1.Text) or(adoTable1.Fields[1].AsString=Edit2.Text) then
adoTable1.Fields[1].AsString:=Edit3.Text;
adotable1.next;
adoTable1.Post;
adoTable1.Refresh;
end; ShowMessage('修改成功!!');
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
adoTable1.Close;
close;
end;
adoTable1.Open; with adotable1 do
begin
adoTable1.Edit;
if (adoTable1.Fields[0].AsString=Edit1.Text) or(adoTable1.Fields[1].AsString=Edit2.Text) then
adoTable1.Fields[1].AsString:=Edit3.Text;
adotable1.next;
adoTable1.Post;
adoTable1.Refresh;
end; ShowMessage('修改成功!!');
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
adoTable1.Close;
close;
end;
解决方案 »
- [岗位]缺一到两个Delphi开发人员
- 反三角函数是什么?arcsin(double)不对!
- 如何将integer型变量转换成char型的?谢谢!!!
- 简单问题:如何定义这样的数据结构??(在线)
- 一个关于点对点语音通信问题!,请进
- 一个关于TreeView的简单问题,在线等待!
- 想把一个txt弹出来,不知道如何实现!
- 做的邮件客户端现在不能收发GMAIL的邮件了
- 在DBGrid中修改某字段内容时,怎样获取修改时的内容
- 请问我怎么读出memo的第一行字符?
- 我做的安装文件怎么运行时会出现The Instance name specified is invalid.
- 我想学习delphi,我应改怎样学习,我应看哪些书?
with adotable1 do
begin
adoTable1.Edit;
while not EOF do//////////////////加
begin
if (adoTable1.Fields[0].AsString=Edit1.Text) or(adoTable1.Fields[1].AsString=Edit2.Text) then
adoTable1.Fields[1].AsString:=Edit3.Text;
adotable1.next;
end;
adoTable1.Post;
adoTable1.Refresh;
end;
Dataset not inedit or insert mode.
begin
while not EOF do//////////////////加
begin
if (adoTable1.Fields[0].AsString=Edit1.Text) or(adoTable1.Fields[1].AsString=Edit2.Text) then
begin
adoTable1.Edit; //当记录移动时会自动POST,所以要把EDIT放在循环内。
adoTable1.Fields[1].AsString:=Edit3.Text;
end;
adotable1.next;
end;
adoTable1.Post;
adoTable1.Refresh;
end;