共7 条记录, 每页显示 10 条, 页签: [1]

标题：ComboBox筛选相关

1楼

youyuweinihao 发表于：2011/8/8 11:33:00

Dim Filter As String
With e.Form.Controls("ComboBox5")
    If .Value IsNot Nothing Then
        Filter = "服务包ID = '" & .Value & "'"
        Filter = " And [客户ID] Is Null"
    End If
End With

这个怎么执行两个条件的筛选

代码这样写有错吗

2楼

youyuweinihao 发表于：2011/8/8 11:34:00

执行后出现缺少操作数

3楼

youyuweinihao 发表于：2011/8/8 11:41:00

Dim Filter As String
With e.Form.Controls("ComboBox5")
    If .Value IsNot Nothing Then
       Filter = "[客户ID] Is Null And 服务包ID = '" & .Tables("服务包明细").current("服务包ID") & "'"
    End If
End With

这样写还是出差

出差为“未找到ComboBox 的共用成员Tables”

4楼

狐狸爸爸 发表于：2011/8/8 11:42:00

Dim Filter As String
With e.Form.Controls("ComboBox5")
    If .Value IsNot Nothing Then
        Filter = "服务包ID = '" & .Value & "'"
         Filter = Filter & " And [客户ID] Is Null"
    End If
End With

5楼

youyuweinihao 发表于：2011/8/8 11:47:00

谢谢狐爸

昨天搞了一个晚上，今天终于解决了

6楼

blackzhu 发表于：2011/8/8 12:38:00

With e.Form.Controls("cmbEmployee")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "雇员 = '" & .Value & "'"
    End If
End With

7楼

youyuweinihao 发表于：2011/8/8 12:39:00

blackzhu谢谢你的帮助

共7 条记录, 每页显示 10 条, 页签: [1]