DBGridEh 自动下一行的问题

procedure TFrameDBGridEh.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    { 数据校验部分 }
    if Assigned(funcVerifyData) then
      funcVerifyData;
    { 判断是否是最后一列,并自动转到下一行第一列 }
    if TDBGridEh(Sender).SelectedIndex = TDBGridEh(Sender).FieldCount - 1 then
    begin
      if TDBGridEh(Sender).Row = TDBGridEh(Sender).RowCount - 1 then
        SubjectNotify(ToolBar_New)
      else
        TDBGridEh(Sender).DataSource.DataSet.Next;
        { DBGridEh 不更新数据,使用DataSet方式来跳传下一行 }
        //TDBGridEh(Sender).Row := TDBGridEh(Sender).Row + 1;
      TDBGridEh(Sender).SelectedIndex := 0;  { DBGridEh 跳转到第一列 }
    end
    else                                          
      TDBGridEh(Sender).SelectedIndex := TDBGridEh(Sender).SelectedIndex + 1;
      while TDBGridEh(Sender).Columns[TDBGridEh(Sender).SelectedIndex].ReadOnly do
        TDBGridEh(Sender).SelectedIndex := TDBGridEh(Sender).SelectedIndex + 1;
    Key := #0;
  end;
end;

 

上述代码,当使用

TDBGridEh(Sender).Row := TDBGridEh(Sender).Row + 1;
来进行跳转下一行时,界面上可以跳传,但是输入数据后,回车,数据不见了。想了个折中的办法,使用DataSet来做吧。

你可能感兴趣的:(grid)