设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2965|回复: 11
打印 上一主题 下一主题

[ActiveX] 再来求助!!用TREEVIEW查询

[复制链接]
跳转到指定楼层
1#
发表于 2010-3-25 15:43:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1.点到省份或销售人员时,右边子窗体显示全部客户。
2.点省份时,显示全省客户
3.点到市时显示该市客户
4.点到销售人名时,显示该销售的客户
从论坛里找的资料只能做到点到市后显示客户。
我笨啊!!!

见附件和附图

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2010-3-25 16:34:25 | 只看该作者
又尝试了一下,现在点省份可以刷新,单点省名不能,继续点到城市又可以刷新。中间少个环节,郁闷。

点销售人员还没试呢

Private Sub TreeView_NodeClick(ByVal Node As Object)
       Dim str As String
    str = ""
    If Node.Text = "省份" Then
        str = ""
        If Node.Text = Node.Key Like "父" Then
            str = "[省市名称]='" & Node.Text & "'"
        End If
    Else
        If Left(Node.Key, 1) = "父" Then
            str = "[省市名称]='" & Mid(Node.Key, 2) & "'"
        Else
            str = "[城市名称]='" & Node.Text & "'"
        End If
    End If
    Me.查询窗体.Form.FilterOn = True
    Me.查询窗体.Form.Filter = str
   
End Sub
3#
发表于 2010-3-25 17:50:35 | 只看该作者
兄弟,你的树图规化的不好~第二层,又有市,又有省.逻辑思维乱.

每层的之间关系应遵循兄弟关系,当前层与下一子层遵循父子关.
4#
发表于 2010-3-25 17:59:05 | 只看该作者
针对单击事件已做修改

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
发表于 2010-3-25 19:56:42 | 只看该作者
如果以他这个treeview为例子,如何让窗体打开时就焦点直接落在根目录上,而且子窗体为空呢。
6#
发表于 2010-3-25 20:57:05 | 只看该作者
学习。。
7#
 楼主| 发表于 2010-3-25 22:06:22 | 只看该作者
本帖最后由 lovehere 于 2010-3-25 22:13 编辑
兄弟,你的树图规化的不好~第二层,又有市,又有省.逻辑思维乱.

每层的之间关系应遵循兄弟关系,当前层与下一子层遵循父子关.
leijiqiang 发表于 2010-3-25 17:50


第二层的省是取省表的链接字段。也许我整的不是很清楚。

还有一部分没整利索呢,就是怎么把点销售人员的查询也加进去?多谢了
8#
发表于 2010-3-26 15:15:03 | 只看该作者
1# lovehere
试试看

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
9#
 楼主| 发表于 2010-3-26 21:57:40 | 只看该作者
先感谢再学习!!!
10#
 楼主| 发表于 2010-3-29 08:44:52 | 只看该作者
超级感谢leijiqiang !!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-29 06:22 , Processed in 0.113676 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表