主题：切换默认用户代码是多少

Dim c As Col = e.Table.cols(e.Table.colsel)

Select Case c.name

    Case "列2"

        If e.Table.Rowsel < e.Table.Rows.count - 1 AndAlso e.KeyCode = keys.enter Then

            e.cancel = True

            Dim r As Row = e.Table.rows(e.Table.Rowsel+1)

            If r.IsNull("列1")

                e.Table.Select(e.Table.Rowsel+1,e.Table.cols("列1").index)

            Else

                e.Table.Select(e.Table.Rowsel+1,e.Table.cols("列2").index)

            End If

        End If

End Select