主题：数据表、回车键

如何用回车键控制数据表的输入范围？如第一行2、3、4列，自动跳到第二行2、3、4列，又自动跳到第三行2、3、4列。。。。。只用回车键就可以控制？

KeyDown

 

If e.KeyCode = Keys.Enter Then
    If e.Table.RowSel < e.Table.Rows.Count - 1 Then
        If e.Table.ColSel = 3 Then
            e.Table.Select(e.Table.RowSel + 1,0)
        End If
    ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
        If e.Table.ColSel = 3 Then
            e.Table.Select(e.Table.RowSel,2)
        End If
    End If
End If

如果是2、3、4、6列呢？并且会自动循环？

AfterEdit

If e.Table.RowSel < e.Table.Rows.Count - 1 Then
    If e.Table.ColSel = 3 Then
        e.Table.Select(e.Table.RowSel,4)
    ElseIf e.Table.ColSel = 5 Then
        e.Table.Select(e.Table.RowSel + 1,0)
    End If
ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
    If e.Table.ColSel = 3 Then
        e.Table.Select(e.Table.RowSel,4)
    ElseIf e.Table.ColSel = 5 Then
        e.Table.Select(e.Table.RowSel,4)
    End If
End If

 

KeyDown

If e.KeyCode = Keys.Enter Then
    If e.Table.RowSel < e.Table.Rows.Count - 1 Then
        If e.Table.ColSel = 3 Then
            e.Table.Select(e.Table.RowSel,4)
        ElseIf e.Table.ColSel = 5 Then
            e.Table.Select(e.Table.RowSel + 1,0)
        End If
    ElseIf e.Table.RowSel = e.Table.Rows.Count - 1 Then
        If e.Table.ColSel = 3 Then
            e.Table.Select(e.Table.RowSel,4)
        ElseIf e.Table.ColSel = 5 Then
            e.Table.Select(e.Table.RowSel,4)
        End If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子2.rar

 

如何在每次打开时将焦点设在第一行第二列的格内，并且在录入到最后一行时，能自动循环？

怎么循环？又回到第一行第二列？

对

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:回车控制输入范围.table

如果是主表切换关联呢？

If CurrentTable.DataTable.Name = "表A" Then
    CurrentTable.Select(0,1)
End If

表A为子表时，如何做呢?