以下是引用lsy在2014-3-4 9:43:00的发言:
用代码选择在哪一列按回车键自动增加行:
AfterEdit
If e.Table.Cols(e.Table.ColSel).Name = "第二列" Then
e.Table.AddNew()
e.Table.Select(e.Table.Current.Index,- 1)
End If
KeyDown
If e.KeyCode = Keys.Enter Then
If e.Table.Cols(e.Table.ColSel).Name = "第二列" Then
e.Table.AddNew()
e.Table.Select(e.Table.Current.Index,- 1)
End If
End If
好代码!