专家坐堂-钩选框为什么不能同时钩选？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  钩选框为什么不能同时钩选？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125562)

--  作者：tyzl88
--  发布时间：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

--  作者：有点甜
--  发布时间：2018/10/4 11:06:00
--

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

Filter =   Filter   &   "(财务审核_单据确认 = False Or  财务审核_单据确认 Is Null)"

--  作者：tyzl88
--  发布时间：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

--  作者：有点蓝
--  发布时间：2018/10/7 14:33:00
--
Filter =   Filter & " And "

And 前后都要加空格