以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码覆盖范围  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86520)
--  作者：aoyu20065
--  发布时间：2016/6/19 19:09:00
--  代码覆盖范围
Select Case e.DataCol.Name
    Case "结算网点","计费起始点名称","省份"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("结算网点") OrElse dr.IsNull("计费起始点名称") OrElse dr.IsNull("省份") Then
            dr("识别区") =e.DataRow("结算网点") & e.DataRow("计费起始点名称") &e.DataRow("省份") 
        Else
            Dim filter As String
            filter = "结算网点 = \'" & dr("结算网点") & "\' And 计费起始点名称 = \'" & dr("计费起始点名称") & "\' And 省份 = \'" & dr("省份") & "\'"
            pr = DataTables("中转费价格表").Find(filter)
            If pr IsNot Nothing Then
                dr("识别区") = pr("识别区")
            End If
        End If 
End Select

红色代码部分为什么只返回一行，此列其余行无反应
--  作者：大红袍
--  发布时间：2016/6/20 0:38:00
--  

 其余行如果要重新计算，要重置列

 

http://www.foxtable.com/help/topics/1469.htm