主题：多级列表

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

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

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

是想要这个效果吗? http://www.foxtable.com/help/topics/2350.htm

'如果刚刚输入的是个人信息_省辖市或个人信息_地级市列
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

错误提示你的意思是你没有行政区域这个表，看看你的项目，肯定不存在这个表的。

安装目录的CaseStudy子目录下有个文件：行政区域.mdb

你可以导入这个文件中的表到你项目中。

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

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

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

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

 7楼，什么意思？

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

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

 

找不到该按钮。

找不到该按钮? 什么意思?