Foxtable(狐表) → 用户栏目 → 专家坐堂 → 钩选框为什么不能同时钩选？


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

主题：钩选框为什么不能同时钩选？
帅哥哟，离线，有人找我吗？
tyzl88
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：126 威望：0 精华：0 注册：2018/9/24 10:24:00 		钩选框为什么不能同时钩选？  发帖心情 Post By：2018/9/30 18:44:00 [只看该作者]

大神，有9个复选框，分别分为A\B\C三组，每组三个，已写窗口全局事件，用复选框模拟了单选框。

 

为什么我钩选了A组的一个，再钩选B组，或者C组的一个，就会出错，代码如下，恳求大神指点，谢谢。

 

 

Dim Filter As String
With e.Form.Controls("GDLH")
    If .Value IsNot Nothing Then
        Filter = "工单号_年号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDYF")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_月份 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDRQ")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_日期 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDXH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_序号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("PP")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "品牌 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("KFM")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("JSFS")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "前台结算单_结算方式 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("JDY")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "前台结算单_接待员 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("SKFS")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款方式 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("CKZH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款帐户 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("CWSH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_审核人 = '" & .Value & "'"
    End If
End With
With e.Form.Controls ("startdate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日报日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("enddate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日报日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("SKstartdate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("SKenddate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款日期 <= #" & .Value & "#"
    End If
End With


With E.ForM.CONTROLS("YCWQR")
If e.Form.Controls("YCWQR").Checked=   True 
      If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_单据确认 = True"
End If
End  With

With E.ForM.CONTROLS("NCWQR")
If   e.Form.Controls("NCWQR").Checked = True
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_单据确认 = False Or   财务审核_单据确认 Is Null"
End If
End With

With E.ForM.CONTROLS("ALLCWQR")
If  e.Form.Controls("ALLCWQR").Checked = True
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_单据确认 = TRUE  OR 财务审核_单据确认 = FALSE OR  财务审核_单据确认 Is Null "
End If
End With

With E.ForM.CONTROLS("YESSK")
If e.Form.Controls("YESSK").Checked=   True  
      If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_已收款 = True"
End If
End  With

With e.Form.controls("nosk")
If    e.Form.Controls("NOSK").Checked = True  
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_已收款 = False Or   财务审核_已收款 Is Null"
End If
End With

With e.Form.controls("allsk")
If   e.Form.Controls("ALLSK").Checked = True  
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_已收款 = False OR 财务审核_已收款 = TRUE  Or   财务审核_已收款 Is Null"
End If
End With

With e.Form.controls("ydb")
If e.Form.Controls("YDB").Checked=   True 
     If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_是否打包收款 = True"
End If
End With

With e.Form.controls("nodb")
If   e.Form.Controls("NODB").Checked = True  
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_是否打包收款 = False Or   财务审核_是否打包收款 Is Null"
End If
End With

With e.Form.controls("alldb")
If   e.Form.Controls("ALLDB").Checked = True  
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "财务审核_是否打包收款 = False OR 财务审核_是否打包收款 = TRUE Or   财务审核_是否打包收款 Is Null"
End If
End With

If Filter > "" Then
    Tables("工单日报").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/4 11:06:00 [只看该作者]

红色这样的代码，都加上括号

 

Filter =   Filter   &   "(财务审核_单据确认 = False Or  财务审核_单据确认 Is Null)"
 回到顶部
帅哥哟，离线，有人找我吗？
tyzl88
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：8 积分：126 威望：0 精华：0 注册：2018/9/24 10:24:00 		  发帖心情 Post By：2018/10/7 14:11:00 [只看该作者]

大神出错

.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：
详细错误信息：
表达式包含未定义的函数调用 TrueAnd()。

 

代码如下，求指正。

 

 

 

Dim Filter As String
With e.Form.Controls("GDLH")
    If .Value IsNot Nothing Then
        Filter = "工单号_年号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDYF")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_月份 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDRQ")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_日期 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("GDXH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工单号_序号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("PP")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "品牌 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("KFM")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("JSFS")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "前台结算单_结算方式 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("JDY")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "前台结算单_接待员 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("SKFS")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款方式 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("CKZH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款帐户 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("CWSH")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_审核人 = '" & .Value & "'"
    End If
End With
With e.Form.Controls ("startdate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日报日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("enddate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日报日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("SKstartdate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls ("SKenddate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "财务审核_收款日期 <= #" & .Value & "#"
    End If
End With

With e.Form.controls("ydb")
If e.Form.Controls("YDB").Checked=  "True"
     If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_是否打包收款 = True"
End If
End With

With e.Form.controls("nodb")
If   e.Form.Controls("NODB").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_是否打包收款 = False Or   财务审核_是否打包收款 Is Null)"
End If
End With

With e.Form.controls("alldb")
If   e.Form.Controls("ALLDB").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_是否打包收款 = False OR 财务审核_是否打包收款 = TRUE Or   财务审核_是否打包收款 Is Null)"
End If
End With

 

With e.Form.controls("YCWQR")
If e.Form.Controls("YCWQR").Checked= "True"
      If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_单据确认 = True"
End If
End  With

With e.Form.controls("NCWQR")
If   e.Form.Controls("NCWQR").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_单据确认 = False Or 财务审核_单据确认 Is Null)"
End If
End With

With e.Form.controls("ALLCWQR")
If  e.Form.Controls("ALLCWQR").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_单据确认 = TRUE  OR 财务审核_单据确认 = FALSE OR  财务审核_单据确认 Is Null )"
End If
End With

With e.Form.controls("YESSK")
If e.Form.Controls("YESSK").Checked= "True"
      If Filter >""   Then
        Filter = Filter &   " And "
      End   If
    Filter = Filter &   "财务审核_已收款 = True"
End If
End  With

With e.Form.controls("nosk")
If    e.Form.Controls("NOSK").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_已收款 = False Or 财务审核_已收款 Is Null)"
End If
End With

With e.Form.controls("allsk")
If   e.Form.Controls("ALLSK").Checked = "True"
    If   Filter >"" Then
          Filter =   Filter  &  "And "
      End If
      Filter =   Filter   &   "(财务审核_已收款 = False OR 财务审核_已收款 = TRUE  Or   财务审核_已收款 Is Null)"
End If
End With


If Filter > "" Then
    Tables("工单日报").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113219 积分：576524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/7 14:33:00 [只看该作者]

Filter =   Filter  &  " And "

And 前后都要加空格
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询