zoukankan      html  css  js  c++  java
  • 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来做吧。

  • 相关阅读:
    2016中国大学生程序设计竞赛
    POJ 2239 化二分图右集合二维为一位的最大匹配
    POJ 1274 二分图最大匹配简单单向
    二分图最大匹配模板
    找割点和割边
    HDU 4432 求因子+进制转换
    HDU 4438 概率 多个情况下的数学期望
    HDU 4424 并查集+贪心思想
    POJ 1611 记录节点数的并查集
    HDU 4430 二分查找
  • 原文地址:https://www.cnblogs.com/yanyyx/p/1631855.html
Copyright © 2011-2022 走看看