请教代码出错，不知道如何将逻辑列："结关" "取消"与其他数值列统一：
表达式部分如下：
Select Case e.DataCol.Name
Case "结算客户","结关","取消"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("结算客户") Then
dr("操作") = Nothing
dr("录入") = Nothing
dr("定金") = Nothing
Else
Dim filter As String
filter = "结算客户 = '" & dr("结算客户") & "' And 结关 = 1 Or 取消 = 1 "
pr = DataTables("报价表").Find(filter)
If pr IsNot Nothing And "结关" = 1 Then
dr("操作") = pr("操作")
dr("录入") = pr("录入")
ElseIf pr IsNot Nothing And "取消" = 1 Then
dr("定金") = pr("定金")
End If
End Select
错误代码图片如下：
此主题相关图片如下：1.jpg
加好友 
发短信
Post By：2012/8/2 0:49:00 [显示全部帖子]
