以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断语句为什么有的地方行有的地方不行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118490)
--  作者：nxqtxwz
--  发布时间：2018/5/4 10:15:00
--  判断语句为什么有的地方行有的地方不行

请问老师，这句代码错在哪呢？写在TextChanged中的。

If Tables("打印审批表_Table1").DataCols("采购申报表打印") = False Then 
Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("打印审批表_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "采购方式 Like " & txt \'And "采购申报表打印"=False
End If
End If
--  作者：有点甜
--  发布时间：2018/5/4 10:17:00
--  

任何地方都不行，改成

 

If Tables("打印审批表_Table1").current("采购申报表打印") = False Then
    Dim txt As String = e.Form.Controls("ComboBox1").Text
    Dim tbl As Table = Tables("打印审批表_Table1")
    If txt = "" Then
        tbl.Filter = ""
    Else
        txt = "\'%" & txt & "%\'"
        tbl.Filter = "采购方式 Like " & txt & " And 采购申报表打印=False "
    End If
End If