[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String = "1=2"

Dim val As String = e.Form.Controls("textbox1").Text

For Each c As DataCol In DataTables("地区表").DataCols

Filter & = " or Convert(varchar(100), " & c.name & ") like '%" & val & "%' " 老师请问这句怎么理解呢？为什么 Filter 后面要加&，才可以等于呢？

还有为什么一开始是OR，这句代码怎么也读不明白

filter &= "xxx" 等同于 filter = filter & "xxx" ，一种简写模式。

至于使用or还是使用and要看自己需要的功能。http://www.foxtable.com/webhelp/topics/0102.htm

比如如果是要筛选第一列或者第二列符合条件就使用or

比如如果是要筛选第一列和第二列同时符合就使用and

Filter & = " or Convert(varchar(100), " & c.name & ") like '%" & val & "%' "

老师上面的变量已经定义了Filter是字符串=“1=2”，那这句的是不是：筛选条件：1=2 & 转换地区列为字符串 like 地区列包含“东”，照读就是1=2这个开头就是搞不懂

统计表达式可以理解为是否的判断，就是：条件1是否成立 or 条件2是否成立 or 条件3是否成立 or ......

1=2是一种为了减少代码的取巧用法，因为1=2始终都是不成立的，所以：1=2 or 条件2是否成立 or 条件3是否成立 or ......

就等同于条件1不成立 or 条件2是否成立 or 条件3是否成立 or ......

看这里的例子：http://www.foxtable.com/webhelp/topics/1058.htm

如果不用1=2，可能就是这样的：

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " or "
        End If
        Filter = Filter & "客户 = '" & .Value & "'"
    End If
End With

如果使用1=2，就样

Dim Filter As String = "1=2"
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = " or 产品 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        Filter = Filter & " or 客户 = '" & .Value & "'"
    End If
End With

不再需要一堆的这种判断

  If Filter > "" Then
            Filter = Filter & " or "
        End If

[此贴子已经被作者于2020/4/6 16:09:15编辑过]

主题：[求助]