我一行记录有多个字段要录入,仅录入了第一个就有如标题那样的问题了.
还请帮忙看看,谢谢

解决方案 »

  1.   

    回车表示你向DBGrid提交完一条记录
      

  2.   

    用户按下Enter键时,你有无做什么?
      

  3.   

    这里进行处理
    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then ...end;
      

  4.   

    这里进行处理
    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then ...end;这样处理是不行的,没一点反映.
      

  5.   

    我用ShowMessage(Key);方法将我按回车的key显示出来是一个空白.
      

  6.   

    是不是要实现这个效果?
    procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
    var
       Index: Integer;
    begin
       if Key = 13 then
       begin
          Index := DBGrid1.SelectedIndex;
          if Index < DBGrid1.FieldCount - 1 then
             DBGrid1.SelectedField := DBGrid1.Fields[Index + 1]
          else
          begin
             DBGrid1.DataSource.DataSet.Post;
             DBGrid1.DataSource.DataSet.Append;
             DBGrid1.SelectedField:=DBGrid1.Fields[0];
          end;
       end;
    end;