以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教：查询语句filter  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=51733)
--  作者：bahamute
--  发布时间：2014/6/2 10:48:00
--  请教：查询语句filter
以下代码无法通过编译，感觉是和使用了like有关，但就是搞不定！
请高手帮忙指点一下，万分感谢。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim str As String = e.Form.Controls("ComboBox1").value 
If nd IsNot Nothing Then
    Dim pth() As String = nd.FullPath.Split("\\")
Tables("检查结果").Filter ="[年月] = \'" & str & "\' And [检查组] like \'"& 处室 & "% \'" & And [被检查单位] = \'"& pth(2) &"\'"
--  作者：逛逛
--  发布时间：2014/6/2 10:54:00
--  

试试这样

Tables("检查结果").Filter ="[年月] = \'" & str & "\' And [检查组] like \'" & 处室 & "% \'  And [被检查单位] = \'" &  pth(2) & "\'"

--  作者：bahamute
--  发布时间：2014/6/2 11:12:00
--  
点击目录树后提示：
Like 运算符中出错: 字符串模式“处室% ”无效。

然后这是弹出的查询语句：
[年月] = \'201404\' And [检查组] like \'处室% \'  And [被检查单位] = \'环球公司\'
--  作者：y2287958
--  发布时间：2014/6/2 11:16:00
--  
还是上例子清爽些
--  作者：sloyy
--  发布时间：2014/6/2 11:35:00
--  
是不是%用了全角符号?
--  作者：逛逛
--  发布时间：2014/6/2 12:27:00
--  

 

 

%后面多了一个空格

 

试试这样

Tables("检查结果").Filter ="[年月] = \'" & str & "\' And [检查组] like \'" & 处室 & "%\'  And [被检查单位] = \'" &  pth(2) & "\'"