DBGridEh 自动下一行的问题

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来做吧。

posted on 2009-12-25 09:58  Yanyyx 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/yanyyx/archive/2009/12/25/1631855.html