- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 多级列表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46164)
-- 发布时间：2014/2/18 11:17:00
-- 多级列表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:蓝峰管理.table |
我搞了个通讯录里面有四列是多级显示，写代码碰到难题了老师能帮我写吗?谢谢了。
-- 发布时间：2014/2/18 11:37:00
--
是想要这个效果吗? http://www.foxtable.com/help/topics/2350.htm
-- 发布时间：2014/2/18 12:43:00
--
\'如果刚刚输入的是个人信息_省辖市或个人信息_地级市列
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
[此贴子已经被作者于2014-2-18 12:46:26编辑过]
-- 发布时间：2014/2/18 12:47:00
--
错误提示你的意思是你没有行政区域这个表，看看你的项目，肯定不存在这个表的。
安装目录的CaseStudy子目录下有个文件：行政区域.mdb
你可以导入这个文件中的表到你项目中。
[此贴子已经被作者于2014-2-18 12:47:42编辑过]
-- 发布时间：2014/2/18 13:09:00
--
Filter = "[个人信息_省辖市] = \'" & e.DataRow("个人信息_省辖市") & "\' And [个人信息_地级市] = \'" & e.DataRow("个人信息_地级市") & "\'"
我要这个公式里面再增加两列下拉项目的代码，"区县市、社区街道"。
-- 发布时间：2014/2/18 14:06:00
--
一样的
Filter = "[个人信息_省辖市] = \'" & e.DataRow("个人信息_省辖市") & "\' And [个人信息_地级市] = \'" & e.DataRow("个人信息_地级市") & "\' and 个人信息_区县市=\'" & e.datarow("个人信息_区县市") & "\'"
-- 发布时间：2014/2/18 22:47:00
--
将刷新目录树按钮的代码设置为，老师那个是刷新目录树的按钮。
-- 发布时间：2014/2/18 23:03:00
--
7楼，什么意思？
-- 发布时间：2014/2/18 23:16:00
--
将刷新目录树按钮的代码设置为：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省市|县市")
找不到该按钮。
-- 发布时间：2014/2/19 8:36:00
--
找不到该按钮? 什么意思?