以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  不同名称内容查找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128896)

--  作者：有点蓝 --  发布时间：2018/12/17 20:31:00 --   代码没有问题。没看懂您具体有什么问题？

--  作者：有点甜 --  发布时间：2018/12/18 9:16:00 --   If e.DataCol.Name = "经理能力评定" Then     Dim nms() As String = {"区间分值"}     If e.NewValue = Nothing Then         For Each nm As String In nms             e.DataRow("经理" & nm) = Nothing         Next     Else         Dim dr As DataRow         dr = DataTables("杂工基础表").sqlFind("[能力评定] = \'" & 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

--  作者：有点甜 --  发布时间：2018/12/18 10:01:00 --   照抄4楼代码测试

--  作者：有点蓝 --  发布时间：2018/12/22 14:26:00 --   http://www.foxtable.com/webhelp/scr/0220.htm If e.DataCol.Name = "线长区间分值" orelse e.DataCol.Name = "线长能力评定" Then

--  作者：有点蓝 --  发布时间：2018/12/22 15:12:00 --   参考：http://www.foxtable.com/help/scr/1284.htm