请教： ADOTable1.Close; ADOTable1.TableName:='test8'; if not AdoTable1.Active then AdoTable1.Open ; ADOTable1.insert; ADOTable1.FieldByName('sno').Value:=edit1.Text ; ADOTable1.FieldByName('name').Value:=edit2.Text ; ADOTable1.Post; 可以向 表 test8 中插入一条记录 可以是我要修改 test8 中 sno=‘0002’的记录 我要怎么写呢？ 谢谢！

Hi lsh998,    試試看：

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOTable1 do
    begin
      if Locate('SNO',Edit1.text,[loCaseInsensitive]) then
        begin
          Edit;
          FieldByName('sno').Value := Edit1.Text ;
          FieldByName('name').Value := Edit2.Text ;
          Post;
        end
      else
        ShowMessage('No match record to update!!');)
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

您好﹗

begin
  ADOTable1.Open;
  if ADOTable1.Locate('sno', '0002', [loCaseInsensitive]) then
    begin
      ADOTable1.Edit;
      ADOTable1.FieldByName('sno').AsString := Edit1.Text;
      ADOTable1.FieldByName('name').AsString := Edit2.Text;
      ADOTable1.Post;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Sorry Fishman兄﹕    撞到您了﹐抱歉抱歉﹗    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002 版大別客氣！ 最近比較忙，比較沒時間上來逛！ 大家一起加油吧！

------
Fishman

谢谢各位老大！