- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于运算符后缺少操作数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63555)
-- 发布时间：2015/1/23 14:36:00
-- 关于运算符后缺少操作数
If ZhiYuan.Value = "" Then
Else
For Each dr As Row In Tables("职员下拉_职员").GetCheckedRows
If Filter<>"" Then
Filter = Filter & " Or [ERP编码] = \'"& dr("ERP编码") &"\'"
Else
Filter = " [ERP编码] = \'"& dr("ERP编码") &"\'"
End If
Next
End If
If buMen.Value = "" Then
Else
Dim bHasChild As Boolean = False
For Each nd As WinForm.TreeNode In tr.AllNodes
If nd.Checked = True Then
For Each ndChild As WinForm.TreeNode In nd.AllNodes
If ndChild IsNot Nothing Then
bHasChild = True
Exit For
End If
Next
If bHasChild = False Then \'最后一级结点
If Filter1 <>"" Then \'
Filter1 = Filter1 & " Or [部门] = \'"& nd.Text &"\'"
Else
Filter1 = " [部门] = \'"& nd.Text &"\'"
End If
End If
End If
Next
MessageBox.Show(Filter1)
Filter = Filter & (Filter1)
MessageBox.Show(Filter)
End If
打印结果是对的
此主题相关图片如下：截图00.png
-- 发布时间：2015/1/23 14:39:00
--
我怎么能将Filter1 弄成一个整体呢？因为Fiter应该与Filter1相与，而Filter1内部应该多个条件相或
-- 发布时间：2015/1/23 14:39:00
--
MessageBox.Show(Filter1) 截图看看值是什么
-- 发布时间：2015/1/23 14:40:00
--
你msgbox(Filter)看一下，或者截图上来看一下。
-- 发布时间：2015/1/23 14:42:00
--
以下是引用sara在2015-1-23 14:39:00的发言：
我怎么能将Filter1 弄成一个整体呢？因为Fiter应该与Filter1相与，而Filter1内部应该多个条件相或
我怎么能将Filter1 弄成一个整体呢？因为Fiter应该与Filter1相与，而Filter1内部应该多个条件相或
Filter = Filter & " and (" & Filter1 & ")"
-- 发布时间：2015/1/23 14:47:00
--
此主题相关图片如下：截图01.png
此主题相关图片如下：截图02.png
此主题相关图片如下：截图03.png
-- 发布时间：2015/1/23 14:47:00
--
此主题相关图片如下：截图04.png
此主题相关图片如下：截图05.png
-- 发布时间：2015/1/23 14:48:00
--
看5楼.你少了 AND 把两个条件对接. 你直接拼接 就成了
-- 发布时间：2015/1/23 14:51:00
--
我想实现Fiter和Filter1两个条件各自为整体，然后And 怎么办
-- 发布时间：2015/1/23 14:54:00
--
分别 加括号