Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教更正逻辑型列表达式


  共有12155人关注过本帖树形打印复制链接

主题：请教更正逻辑型列表达式
帅哥哟，离线，有人找我吗？
SZDVYE
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：213 积分：2228 威望：0 精华：0 注册：2012/2/3 14:14:00 		请教更正逻辑型列表达式  发帖心情 Post By：2012/8/2 0:49:00 [只看该作者]

请教代码出错，不知道如何将逻辑列："结关"   "取消"与其他数值列统一：

表达式部分如下：

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
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2012/8/2 8:48:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/8/2 9:57:00 [只看该作者]

第一：

 

If pr IsNot Nothing And "结关" = 1 Then

 

改为：

 

If pr IsNot Nothing And pr("结关") = 1 Then

 

第二：

 

ElseIf pr IsNot Nothing And "取消" = 1 Then

 

改为：

 


ElseIf pr IsNot Nothing And pr("取消") = 1 Then
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询