- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]增加判定 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185817)
-- 发布时间：2023/3/18 17:57:00
-- [讨论]增加判定
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
老师代码，增加一个判定: 有“同意”列，中有“”同意“”这两个字符。才这段代码，如果“同意”列内是其他字符，不执行此代码，怎么修改呢？
-- 发布时间：2023/3/19 19:46:00
--
Select Case e.DataCol.Name
Case "编号","服务"
if e.DataRow("同意") = "同意" then
Dim dr As DataRow = e.DataRow
……
……
End If
End Select
-- 发布时间：2023/6/1 16:33:00
--
Select Case e.DataCol.Name
Case "类型","服务","服务内容"
\'If e.DataCol.Name = "类型" OrElse e.DataCol.Name = "服务" OrElse e.DataCol.Name = "服务内容" Then
If e.DataRow("类型") <> "包年" Then ‘类型为“包年”不执行下面代码
Dim dr As DataRow = e.DataRow
Dim sr As DataRow
sr = DataTables("列表数据").SQLFind("[类型] = \'" & dr("类型") & "\' And [服务] = \'" & dr("服务") & "\'And [服务内容] = \'" & dr("服务内容") & "\'") \'在后台查找符合条件的行
If sr IsNot Nothing Then \'如果找到了符合条件的行
dr("计分金额") = sr("计分金额")
dr("收款") = sr("收款")
Else
dr("计分金额") = Nothing
dr("收款") = Nothing
End If
End If
End If
End If
End Select
提示：错误“End if”,麻烦老师看看真没改呢？谢谢
-- 发布时间：2023/6/1 16:55:00
--
if 和End if要成对出现，不能单独使用
此主题相关图片如下：1.png
-- 发布时间：2023/6/1 16:57:00
--
谢谢老师！