[求助]datacolchange多列连续发生变化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想问一下，是不是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

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

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

改为这样还是不显示研发分机号。请问哪里不对？

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

Systemready = False

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

Systemready = True

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

Systemready = False

e.DataRow("研发分机号") = dr("手机号码")

Systemready = True

End If

之前模块维护人邮箱列值为空，现在怀疑模块有值，同时模块维护人邮箱也有值了。也就说说模块维护人邮箱的值变动了，那么应该在技术支持信息表，取出对应的手机号码。可实际上红色代码没执行。

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

Systemready = False

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

Systemready = True

msgbox(e.DataRow("模块维护人邮箱"))

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

msgbox(1)

Systemready = False

e.DataRow("研发分机号") = dr("手机号码")

Systemready = True

msgbox(e.DataRow("研发分机号"))

End If

因为是分页加载，find改为了SQLFind，可以了。多谢。这个错误之前我也同样犯过。

dr = DataTables("技术支持信息表").SQLFind("[Name] = '" & e.NewValue & "'")

主题：[求助]datacolchange多列连续发生变化