- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新增目录树节点 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92761)
-- 发布时间：2016/11/12 8:32:00
-- [求助]新增目录树节点
老师好：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件.rar |
此主题相关图片如下：新增节点.png
-- 发布时间：2016/11/12 10:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目.table |
-- 发布时间：2016/11/12 10:51:00
--
老师，我希望能在窗口表中根据上一级目录显示。
此主题相关图片如下：新增节点.png
-- 发布时间：2016/11/12 11:07:00
--
前面2个表不是已经实现了吗，后面2个表的方法完全一样的
-- 发布时间：2016/11/12 11:25:00
--
我搞了，不行。
-- 发布时间：2016/11/12 11:35:00
--
贴出你不行的代码
-- 发布时间：2016/11/12 12:31:00
--
老师，下面是窗口代码（AfterLoad）
Tables("目录树_Table1").DataTable.LoadFilter = "[_Identify] Is Null "
Tables("目录树_Table1").DataTable.Load
Tables("目录树_Table2").Filter = "[_Identify] Is Null"
Tables("目录树_Table2").DataTable.Load
Tables("目录树_Table3").Filter = "[_Identify] Is Null"
Tables("目录树_Table3").Cols.Frozen = 1 \'冻结第一列
Tables("目录树_Table3").DataTable.Load
Tables("目录树_Table1").ExtendLastCol = True \'自动调整最后一列的宽度,以适用表宽.
Tables("目录树_Table3").ExtendLastCol = True \'自动调整最后一列的宽度,以适用表宽.
For Each cl As Col In Tables("目录树_Table1").Cols \'整表居中
cl.TextAlign = TextAlignEnum.Center
Next
For Each cl As Col In Tables("目录树_Table2").Cols \'整表居中
cl.TextAlign = TextAlignEnum.Center
Next
For Each cl As Col In Tables("目录树_Table3").Cols \'整表居中
cl.TextAlign = TextAlignEnum.Center
Next
-- 发布时间：2016/11/12 14:11:00
--
不是这段代码。原来选择table1的行的时候，table2是怎样根据table1变化内容的
-- 发布时间：2016/11/12 14:41:00
--
下面是Table1事件
DataColChanged
If e.DataCol.Name = "母优先级"
Dim Filter As String = "[目录类别] = \'" & e.DataRow("目录类别") & "\'"
DataTables("目录树_Table2").ReplaceFor("母优先级", e.NewValue, Filter)
End If
CurrentChanged
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Tables("目录树_Table2").Filter = "[_Identify] is null"
Else
Tables("目录树_Table2").Filter = "[项目] = \'" & Forms("目录树").Controls("ComboBox1").Value & "\' And [目录类别] = \'" & e.Table.Current("目录类别") & "\' And [目录名称] Is Not Null"
End If
下面是Table2事件
DataColChanged
Select Case e.DataCol.Name
Case "母优先级","子优先级"
e.DataRow("优先级") = e.DataRow("母优先级") & e.DataRow("子优先级")
End Select
老师，再增加孙目录不知怎样修改。
-- 发布时间：2016/11/12 15:19:00
--
Table2事件
CurrentChanged
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Tables("目录树_Table3").Filter = "[_Identify] is null"
Else
Tables("目录树_Table3").Filter = "[项目] = \'" & Forms("目录树").Controls("ComboBox1").Value & "\' And [目录类别] = \'" & e.Table.Current("目录类别") & "\' And [目录名称] =\'" & e.Table.Current("目录名称") & "\'"
End If