- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ComboBox筛选相关 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11694)
-- 发布时间：2011/8/8 11:33:00
-- ComboBox筛选相关
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
这个怎么执行两个条件的筛选
代码这样写有错吗
-- 发布时间：2011/8/8 11:34:00
--
执行后出现缺少操作数
-- 发布时间：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”
-- 发布时间：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
-- 发布时间：2011/8/8 11:47:00
--
谢谢狐爸
昨天搞了一个晚上，今天终于解决了
-- 发布时间：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
-- 发布时间：2011/8/8 12:39:00
--
blackzhu谢谢你的帮助