Select Case e.DataCol.Name
Case "编号","服务"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("编号") OrElse dr.IsNull("服务") Then
dr("计分金额") = Nothing
Else
Dim filter As String
filter = "编号 = '" & dr("编号") & "'"
pr = DataTables("客户资料").SQLFind(filter)
If pr IsNot Nothing Then
dr("计分金额") = pr(e.DataRow("服务"))
End If
End If
End Select
老师代码，增加一个判定: 有“同意”列，中有“”同意“”这两个字符。才这段代码，如果“同意”列内是其他字符，不执行此代码，怎么修改呢？
加好友 
发短信
Post By：2023/3/18 17:57:00 [只看该作者]
