FORM上有EDIT1...EDIT9,Dbgrid,当按下Dbgrid的回车后,Dbgrid并不移到下一格,而是移到EDIT1...Edit9之后才到Dbgrid的下一栏!
代码如下:
   IF Key=#13 Then
       IF (Dg1.SelectedIndex)<DG1.Columns.Count-1 Then
           begin
            DG1.SelectedIndex:=Dg1.SelectedIndex+1
           end
         Else
            IF not ADOQTable2.Eof Then
            Begin
            Dg1.DataSource.DataSet.next;
            Dg1.SelectedIndex:=0;
            End;