Dim idx As Integer = -1
Select Case e.KeyCode
Case Keys.Left
If e.Table.ColSel > 0 Then
idx = e.Table.ColSel - 1
e.Table.Select(e.Table.RowSel, idx)
End If
Case Keys.Right
If e.Table.ColSel < e.Table.Cols.Count - 1 Then
idx = e.Table.ColSel + 1
e.Table.Select(e.Table.RowSel, idx)
End If
End Select
If idx > -1 Then
If e.Table.Cols(idx).IsString AndAlso (e.Table.Cols(idx).DataCol.MaxLength = -1 OrElse e.Table.Cols(idx).DataCol.MaxLength > 255) Then
For Each a As Object In e.Table.grid.parent.controls
For Each b As Object In a.controls
For Each c As Object In b.controls
If c.text = e.Table.Cols(idx).Name Then
c.parent.SelectedTab = c
End If
Next
Next
Next
End If
End If
加好友 
发短信
Post By：2023/11/16 8:37:00 [显示全部帖子]
