- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 主窗口功能实现 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81634)
-- 发布时间：2016/3/2 14:34:00
-- [求助] 主窗口功能实现
主窗口想实现如下图类似功能，该怎么做？
-- 发布时间：2016/3/2 14:35:00
--
此主题相关图片如下：360截图20160302143151564.jpg
-- 发布时间：2016/3/2 14:44:00
--
此主题相关图片如下：360截图20160302144248707.jpg
-- 发布时间：2016/3/2 15:04:00
--
用目录树控件，参考
http://www.foxtable.com/help/topics/0917.htm
-- 发布时间：2016/3/2 16:16:00
--
此主题相关图片如下：360截图20160302161606373.jpg
-- 发布时间：2016/3/2 16:21:00
--
看看
http://www.foxtable.com/help/topics/2741.htm
-- 发布时间：2016/3/2 16:43:00
--
此主题相关图片如下：360截图20160302164217044.jpg
-- 发布时间：2016/3/2 16:50:00
--
Dim dt As DataTable = DataTables("设备端口业务清单表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "机房名称|网元名称|板件槽位")
trv.Nodes.Insert("机房/设备/槽位板件",0)
trv.StopRedraw \'停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
If nd.Level = 2 Then \'如果是二级节点
nd.Text = nd.text & "-" & nd.DataRow("板件型号")
Dim Year As Integer = nd.DataRow("网元名称")
Dim Month As Integer = nd.DataRow("板件槽位")
nd.Text = nd.text & "板件槽位(" & dt.Compute("Count(板件槽位)","网元名称 = \'" & Year & "\' And 板件槽位 = \'" & Month & "\'") & "条)"
End If
Next
trv.ResumeRedraw \'恢复绘制目录树
-- 发布时间：2016/3/2 17:04:00
--
还是相同错误提示
-- 发布时间：2016/3/2 17:16:00
--
Dim dt As DataTable = DataTables("设备端口业务清单表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "机房名称|网元名称|板件槽位")
trv.Nodes.Insert("机房/设备/槽位板件",0)
trv.StopRedraw \'停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
If nd.Level = 2 Then \'如果是二级节点
nd.Text = nd.text & "-" & nd.DataRow("板件型号")
Dim Year As Integer = nd.DataRow("网元名称")
Dim Month As Integer = nd.DataRow("板件槽位")
nd.Text = nd.text & "板件槽位(" & dt.Compute("Count(板件槽位)","网元名称 = \'" & Year & "\' And 板件槽位 = \'" & Month & "\'") & "条)"
End If
Next
trv.ResumeRedraw \'恢复绘制目录树