主题：[求助]想做一个职工来访登记

If e.KeyCode =Keys.NumPad0 Then

    e.Cancel=True

    e.Table.Select(e.Table.Position,2)

End If

If e.Col.name="第二列" Then

e.Cancel=True

    If e.KeyCode=Keys.NumPad1 Then

        e.Text="工资"

    End If

    If e.KeyCode=Keys.NumPad2 Then

        e.Text="职称"

    End If

    If e.KeyCode=Keys.NumPad3 Then

        e.Text="考勤"

    End If

End If

If e.KeyCode=Keys.NumPad1 OrElse e.KeyCode=Keys.D1 Then

        e.Text="工资"

    End If