我想问一下,是不是A列值发生变化,B列自动从某个表取出某个值。那就是说B列也发生了变化,那么C列值也应该可以从另外一个表取出某个值吧。
代码如下:可是没有实现,是怎么回事。
发生变化的列是怀疑模块,那么模块维护人邮箱从模块名称库取出值。
发生变化的列是模块维护人邮箱,希望研发分机号从技术支持信息表取出手机号码的值。
datacolchange代码:
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
If e.DataCol.Name = "模块维护人邮箱" Then
If e.NewValue Is Nothing Then
e.DataRow("研发分机号") = Nothing
Else
Dim dr As DataRow
dr = DataTables("技术支持信息表").Find("[name] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("研发分机号") = dr("手机号码")
End If
End If
End If