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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮助文件中疑点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40318)

--  作者：998168
--  发布时间：2013/9/15 9:04:00
--  帮助文件中疑点
如题
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 & " And "
        End If
        Filter = Filter & "客户 = \'" & .Value & "\'"
    End If
End With
为什么第二段代码要加上 If Filter f Filter > "" then
Filter = Filter & " And "
   End If
而第一段没有呢? 另外大于号和双引号一起用 > ""代表什么意思呢?

--  作者：y2287958
--  发布时间：2013/9/15 9:14:00
--
1、 > ""　表示不是空值
2、第一段Filter还是空值，所以不用判断

--  作者：998168
--  发布时间：2013/9/15 9:44:00
--
把第一段代码和第二段对掉后可以改写为: Dim Filter As String
With e.Form.Controls ("cmbCustomer")
    If .Value IsNot Nothing Then
        Filter = " 客户 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls ("cmbProduct")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & " 产品  = \'" & .Value & "\'"
    End If
End With
可以如上代码这样写么?

--  作者：有点甜
--  发布时间：2013/9/15 21:56:00
--
嗯嗯，是的。