下面是一个在DBGrid1按回车键的 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var EndCol : Integer; begin EndCol := DBGrid1.Columns.Count - 1; if Key = #13 then begin Key := #0; with DBGrid1.DataSource.DataSet do begin if DBGrid1.SelectedIndex <> EndCol then begin DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1; end else begin Next; if not Eof then begin DBGrid1.SelectedIndex := 0; end; end; end; end; end;