- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多个表设置目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52138)
-- 发布时间：2014/6/10 9:27:00
-- 多个表设置目录树
老师请教几个问题：
1、在项目中设置目录树时分组用表分组中的列来生成目录树 ，其他的目录树节点用表a中的等级、来源自动生成 请帮忙看看代码
2、在客户窗口点新增弹出客户新增窗体，在分组的combobox中怎么引用表分组中的数据建立目录树用来选择
用外部数据库是如何一键备份数据库
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/6/10 9:36:00
--
1.多列要用BuildTree
-- 发布时间：2014/6/10 11:02:00
--
理解了
-- 发布时间：2014/6/10 11:16:00
--
目录树的nodemouseclike代码
Dim t As Table = Tables("表a")
If e.node.Level > 0 Then
If e.Node.FullPath.StartsWith("按分组") Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "分组 like \'*" & dept & "*\'"
Else If e.node.FullPath.StartsWith("按客户等级") Then
\'If e.node.Nodes.count > 0 Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "等级 like \'*" & dept & "*\'"
Else If e.node.FullPath.StartsWith("按客户来源") Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "来源 like \'*" & dept & "*\'"
End If
Else
t.Filter = ""
End If
按分组有用 单分组其他的节点没有用 请教怎么写代码
-- 发布时间：2014/6/10 11:18:00
--
不明白你的意思
-- 发布时间：2014/6/10 11:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2014/6/10 11:31:00
--
点目录树按分组根节点下的节点 比如点上海时 表a中显示在表a分组的省是上海的全部客户
-- 发布时间：2014/6/10 11:34:00
--
点静安区时显示全是静安区下面的客户
-- 发布时间：2014/6/10 11:35:00
--
此主题相关图片如下：1.png
-- 发布时间：2014/6/10 11:42:00
--
代码
Dim t As Table = Tables("表a")
Dim dt As DataTable = DataTables("分组")
If e.node.Level > 0 Then
If e.Node.FullPath.StartsWith("按分组") Then
Dim filter As String = ""
Dim dr As DataRow = e.Node.DataRow
If e.Node.Level = 1 Then
filter = "省 = \'" & dr("省") & "\'"
Else If e.Node.Level = 2 Then
filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\'"
Else If e.Node.Level = 3 Then
filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\'"
Else If e.Node.Level = 4 Then
filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\' and 乡镇 = \'" & dr("乡镇") & "\'"
Else If e.Node.Level = 5 Then
filter = "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and 区县 = \'" & dr("区县") & "\' and 乡镇 = \'" & dr("乡镇") & "\' and 街道居委 = \'" & dr("街道居委") & "\'"
End If
Dim idxs As String = "\'" & dt.GetComboListString("街道居委", filter).Replace("|", "\',\'") & "\'"
t.Filter = "分组 in (" & idxs & ")"
Else If e.node.FullPath.StartsWith("按客户等级") Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "等级 like \'*" & dept & "*\'"
Else If e.node.FullPath.StartsWith("按客户来源") Then
Dim sidx As Integer = e.node.FullPath.IndexOf("\\")
Dim dept As String = e.node.FullPath.SubString(sidx+1)
t.Filter = "来源 like \'*" & dept & "*\'"
End If
Else
t.Filter = ""
End If