主题：多级列表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰管理.table

老师们好。
我搞了个通讯录里面有四列是多级显示，写代码碰到难题了老师能帮我写吗?谢谢了。

'如果刚刚输入的是个人信息_省辖市或个人信息_地级市列
If e.DataCol.Name = "个人信息_省辖市" OrElse e.DataCol.Name = "个人信息_地级市" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[个人信息_省辖市] = '" & e.DataRow("个人信息_省辖市") & "' And [个人信息_地级市] = '" & e.DataRow("个人信息_地级市") & "'"
    dr = DataTables("行政区域").Find(Filter) '在行政区域表查找所输入个人信息_省辖市和个人信息_地级市的行
   
区县市、社区街道列怎样写入到
 上面的 公式里面去。
此主题相关图片如下：多级列表.jpg

Filter = "[个人信息_省辖市] = '" & e.DataRow("个人信息_省辖市") & "' And [个人信息_地级市] = '" & e.DataRow("个人信息_地级市") & "'"

我要这个公式里面再增加两列下拉项目的代码，"区县市、社区街道"。

将刷新目录树按钮的代码设置为，老师那个是刷新目录树的按钮。

将刷新目录树按钮的代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")

 

找不到该按钮。

这个代码写在什么地方啊

老师,多级显示设置和目录树设置在一起有冲突吗?