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;
代码如下:
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;
二、检查这些控件的TABORDER顺序
三、单步跟踪程序看你的KEYPRESS事件是怎么执行的。