求教

nasenunk　发表于：2015-05-13 11:24:06 　

我想点击A.B.C分类的都是都能查询到。我现在只能查询到C级

代码如下 Private Sub Treeview_NodeClick(ByVal Node As Object)

Dim str As String

If Node.Text = "公司部门" Or Node.Key Like "A*" Or Node.Key Like "B*" Then
str = ""

Else
str = "[平台名称]='" & Node.Text & "'"


End If
Me.Form.FilterOn = True
Me.Form.Filter = str




End Sub

请大婶给个批注

Top

煮江品茶发表于：2015-05-13 11:39:30

http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=9496

Top

nasenunk 发表于：2015-05-13 11:45:05

首先谢谢管理员，但是我的设想是我截图哪里只要点击A.B.C无论那个都会显示在子窗体里。比如我点击B它就会在子窗体显示它对应的A跟B，点击C。现在是正常的。问题就出在A.B两个上面

Top

nasenunk 发表于：2015-05-13 11:46:12

我点击C的话子窗体会显示ABC都会有。也就是我图里的部门名称，平台名称。分组名称。但是点击B的话就什么都没有。点击A也是

Top

煮江品茶发表于：2015-05-13 11:53:04

很简单嘛。

Private Sub Treeview_NodeClick(ByVal Node As Object)
Dim wh As String
wh="公司部门 & 平台名称 & 分组名称 Like '*" & node.text & "*'"
Me.Form.Filter = wh
Me.Form.FilterOn = True
End Sub

Top

nasenunk 发表于：2015-05-13 11:57:28

稍微有点出入，基本都好了。

只有点上面的东吴级分类不显示了、其它的都是我需要的。能麻烦您再给改改么？

Top

nasenunk 发表于：2015-05-13 11:58:51

我可以用别的方法达到我的要求。但是我只是想搞明白这里怎么改。麻烦您了

Top

煮江品茶发表于：2015-05-13 12:21:41

不就是把三个字段拼接起来，然后与节点的文本进行模糊匹配嘛。

Top

nasenunk 发表于：2015-05-13 12:54:52

那你帮我写个代码可以么。。

Top

nasenunk 发表于：2015-05-13 14:09:01

Private Sub Treeview_NodeClick(ByVal Node As Object)
Dim wh As String
wh = "公司部门 & 平台名称 &部门名称& 分组名称 Like '*" & Node.Text & "*'"
Me.Form.Filter = wh
Me.Form.FilterOn = True

End Sub

你好·为什么会有这个提示呢？

Top

煮江品茶发表于：2015-05-13 14:40:26

部门名称两侧加空格

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

求教