希望来访者输入工号,就可以在职工基础数据表中找到对应的其他数据,自动在来访登记表上显示出来。
在帮助里找到了代码,可以用:
If e.DataCol.Name = "工号" Then
Dim nms() As String = {"部门"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("职工基础表").Find("[工号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
但是 ,我还希望:
1、当我打开来访登记表这张表时,鼠标光标自动放在新记录工号列上;
2、如果来访者不记得工号,就在键盘输入0,光标自动放在身份证号列上,以身份证号列来获得信息;
3、输入工号或身份证号后,按键盘回车键,光标自动放在来访类型列上,来访者可以按下1—3选择来访类型。
1为工资,2为职称,3为考勤。
这 该如何修改代码呢?
求指教!
非常感谢 !