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
红色代码部分为什么只返回一行，此列其余行无反应
加好友 
发短信
Post By：2016/6/19 19:09:00 [只看该作者]
