- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树录入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79703)
-- 发布时间：2016/1/7 15:48:00
-- 目录树录入
下表的目录树录入代码怎么写(示例窗口1)
产品代码 产品分类 型号 规格
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码目录树.zip |
此主题相关图片如下：snap1.jpg
[此贴子已经被作者于2016/1/7 15:48:40编辑过]
-- 发布时间：2016/1/7 15:54:00
--
直接写
Dim cb As New DropTreeBuilder
cb.SourceTable = DataTables("表A") \'指定目录树表
cb.TreeCols = "分类代码|产品分类|型号|规格" \'指定用于生成目录树的列
cb.SourceCols = "分类代码|产品分类|型号|规格" \'指定数据来源列
cb.ReceiveCols = "产品代码|产品分类|型号|规格" \'指定数据接收列
cb.TreeWidth = 200
CB.TreeHeight = 800
Tables("表B").Cols("产品代码").DropTree = cb.Build()
-- 发布时间：2016/1/7 15:55:00
--
如果要特殊，就自己做下拉窗口
http://www.foxtable.com/help/topics/2350.htm
-- 发布时间：2016/1/7 16:00:00
--
我的目录树有些特殊,与4楼的例子不同类
目录树文件在示例中
[此贴子已经被作者于2016/1/7 16:00:16编辑过]
-- 发布时间：2016/1/7 16:01:00
--
无法直接取出来，要自己做下拉窗口处理。
-- 发布时间：2016/1/7 16:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码目录树.foxdb |
-- 发布时间：2016/1/7 16:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:代码目录树2.zip |
加了下拉窗口,单击节点代码不会写
-- 发布时间：2016/1/7 16:42:00
--
看6楼。
-- 发布时间：2016/1/7 16:47:00
--
呵,我还没时间升级,打不开,贴出代码好吗
-- 发布时间：2016/1/7 16:49:00
--
If e.node.Level = 2 Then
Dim r As Row = Tables("表B").current
Dim ary As String() = e.node.FullPath.split("\\")
r("产品代码") = ary(2).Split(" ")(0)
r("规格") = ary(2).Split(" ")(1)
r("型号") = ary(1).Split(" ")(1)
r("产品分类") = ary(0).Split(" ")(1)
e.Form.DropDownBox.value = ary(2).Split(" ")(0)
e.Form.DropDownBox.CloseDropdown
End If