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
-----------下面为我加入的代码------------
If e.NewValue("来访事由") = 1 Then
e.DataRow("来访事由") = "工资"
ElseIf e.NewValue("来访事由") = 2 Then
e.DataRow("来访事由") = "职称"
End If
在 来访登记 这个表的datecolchanged中加入的代码
我是在一个可以使用的代码后面，直接加入了另一个功能的代码
前半部可以使用的代码，是实现在来访登记的工号列输入值，就可以自动在职工总库找到相应的值填入姓名和部门
我加入的后半部代码是想实现，当我在来访登记表（该表叫做学生来访……没有改名字）的来访事由里输入1，则来访事由的值就变成工资，输入2，就变成职称。
但是这样使用则出现了问题
问题1，我在来访登记表增加新行报错，如下：
此主题相关图片如下：错误.jpg
无视该错误，在来访登记表的来访事由填写1，回车
则再次报错：
此主题相关图片如下：错误1.jpg
请问，问题出在哪里呢？在一个表事件里，加入不同功能的代码，需要特别做什么吗（我不懂编程）。
我自己加的第二段代码，该怎么改呢？
非常感谢！
[此贴子已经被作者于2014-3-6 17:37:37编辑过]
加好友 
发短信
Post By：2014/3/6 17:35:00 [显示全部帖子]
