Select Case e.DataCol.name
Case "服务内容","支付方式", "包月价","预付","付款状态"
If e.DataRow("服务内容") Like "foxtable*" AndAlso e.DataRow("支付方式") Like "月付*"
e.DataRow("付款状态") = "未付"
Dim bh As String = e.DataRow("编号")
Dim drcs = DataTables("客户资料").find("编号 = '"& bh &"'")
If drcs IsNot Nothing Then
e.DataRow("包月价") = IIF(drcs("支付方式") Like "预付*",Nothing, drcs("包月价"))
Else
e.DataRow("包月价") = Nothing
End If
Else
e.DataRow("包月价") = Nothing
e.DataRow("付款状态") = Nothing '今天加了这二句,在此行执行这段代码就会闪退。没加之前,一直正常。
End If
End Select
[此贴子已经被作者于2019/3/15 15:48:43编辑过]