Office中国论坛/Access中国论坛

标题: 再来求助！！用TREEVIEW查询 [打印本页]

作者: lovehere 时间: 2010-3-25 15:43
标题: 再来求助！！用TREEVIEW查询
1.点到省份或销售人员时，右边子窗体显示全部客户。
2.点省份时，显示全省客户
3.点到市时显示该市客户
4.点到销售人名时，显示该销售的客户
从论坛里找的资料只能做到点到市后显示客户。
我笨啊！！！

见附件和附图

作者: lovehere 时间: 2010-3-25 16:34
又尝试了一下，现在点省份可以刷新，单点省名不能，继续点到城市又可以刷新。中间少个环节，郁闷。

点销售人员还没试呢

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

作者: leijiqiang 时间: 2010-3-25 17:50
兄弟,你的树图规化的不好~第二层,又有市,又有省.逻辑思维乱.

每层的之间关系应遵循兄弟关系,当前层与下一子层遵循父子关.

作者: leijiqiang 时间: 2010-3-25 17:59
针对单击事件已做修改

作者: 简 时间: 2010-3-25 19:56
如果以他这个treeview为例子，如何让窗体打开时就焦点直接落在根目录上，而且子窗体为空呢。

作者: goto2008 时间: 2010-3-25 20:57
学习。。

作者: lovehere 时间: 2010-3-25 22:06
本帖最后由 lovehere 于 2010-3-25 22:13 编辑

兄弟,你的树图规化的不好~第二层,又有市,又有省.逻辑思维乱.

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

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

还有一部分没整利索呢，就是怎么把点销售人员的查询也加进去？多谢了

作者: leijiqiang 时间: 2010-3-26 15:15
1# lovehere
试试看

作者: lovehere 时间: 2010-3-26 21:57
先感谢再学习！！！

作者: lovehere 时间: 2010-3-29 08:44
超级感谢leijiqiang ！！！！

作者: asklove 时间: 2010-3-29 08:55
楼主，我感觉判断节点用 select case 比 if 结构要清晰一点(效果是一样)
如：
select case len(nod.key,1)
      case "父"
      *********
      case "父1"
      *********
end select

作者: xie62 时间: 2010-4-26 15:53
不错

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)