IF ((Key = RETURN) and (欄位 = 會作用的欄位)) THEN
    BEGIN
        Key := VK_DOWN
    END;

引言: 大大不好意思 因為看不懂 欄位 = 會作用的欄位 這個的意思 這三個欄位都有作用 國際條碼把商品名稱及售價帶出來 那這個意思我不怎麼懂也 可能是我太笨 領悟力太差 不好意思

IF ((Key = vk_RETURN) and (DBGrid1.SelectedIndex = 0)) THEN
BEGIN
  Key := VK_DOWN;
END;

引言: Hi: 在這裡，我指的是，當你在商品編號欄位按下 Enter 鍵後，直接跳下一筆，因此作用欄位即為商品編號，如此可避免當你在 DBGrid 中按下 Enter 鍵，程式自動幫你轉換為向下鍵的問題，也就是說，你可以設定特定欄位使這個功能生效，而非在整個 DBGrid 中。 此外，我是使用 BDE，經測試後還有一些問題，當按下向下鍵後，你會發現該筆資料會不見(在 DBGrid 中)，可是資料庫卻已經寫入，而前端的 RecordCount 卻未增加，經向高人請教，只要使用 TQuery 在 POST 後會有此一問題，必須將該 TQuery 重新 Open 過才會正常，而 TTable 卻無此問題，不知 ADOQuery 會不會如此？ < face="Verdana, Arial, Helvetica"> 小弟看他貼圖是ADO元件,所以就直接拉ADOQuery測試,往下新增時,dbgrid顯示沒問題,關閉程式再開,資料也有存檔.

  IF ((Key = vk_RETURN) and (DBGrid1.SelectedIndex = 0)) THEN
  BEGIN
    ADOQuery1.Append;
  END;

OnChange事件    procedure TForm1.DBEdit1Change(Sender: TObject);
begin
    IF ((Sender AS TDBEdit).DataSource.DataSet.State = dsEdit) or ((Sender AS TDBEdit).DataSource.DataSet.State = dsInsert) THEN
        (Sender AS TDBEdit).DataSource.DataSet.FieldByName((Sender AS TDBEdit).DataField).AsString := (Sender AS TDBEdit).Text;
end;    OnKeyPress事件
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    IF ((Key = VK_RETURN) AND (Length((Sender AS TDBEdit).Text) >= 13)) THEN
        (Sender AS TDBEdit).DataSource.DataSet.Append;
end;