[求助]想做一个职工来访登记 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

希望来访者输入工号，就可以在职工基础数据表中找到对应的其他数据，自动在来访登记表上显示出来。

在帮助里找到了代码，可以用：

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

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)

End If

但是，我还希望：

1、当我打开来访登记表这张表时，鼠标光标自动放在新记录工号列上；

2、如果来访者不记得工号，就在键盘输入0，光标自动放在身份证号列上，以身份证号列来获得信息；

3、输入工号或身份证号后，按键盘回车键，光标自动放在来访类型列上，来访者可以按下1—3选择来访类型。

1为工资，2为职称，3为考勤。

这该如何修改代码呢？

求指教！

非常感谢！

1.利用FINDROWhttp://www.foxtable.com/help/topics/0553.htm

2.加入第三列是身份证列 KeyDownEdit 事件

If e.KeyCode =Keys.NumPad0 Then

e.Cancel=True

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

End If

3.按回车跳转代码同上

1-3设置类型

KeyDownEdit 事件

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

非常感谢！我去学习一下！

代码改成了这样

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

但好像没有效果。

我哪里做错了呢？

YOU什么问题? 怎么没效果,请上例子.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:来访系统.table

例子如上……

输入数字，没有出现文本……

我是哪里错了呢？

那个是小键盘的数字如果希望主键盘数值也有效果.可以加入

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

e.Text="工资"

End If

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