- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 目录树管理表 求教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12687)
-- 发布时间：2011/9/11 14:43:00
-- [求助] 目录树管理表 求教
求表A窗口1中目录树代码：
1，当点击目录树中的表名，被点击的表能在窗口中显示。如点击目录树中的表A，窗口中就会显示表A。
2，表A，表B，表C 都有“日期”， “年”，“月”列，目录树如何会在表名子节点自动显示表的年和月。
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.table |
-- 发布时间：2011/9/11 14:58:00
--
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If e.Node.Level = 1 Then
MainTable = Tables(e.Node.Text)
Tables("窗口1_Table1").DataSource = DataTables(nd.name)
End If
-- 发布时间：2011/9/11 15:57:00
--
2.年,月改为整数,好排序
Dim Ls As String() = {"表A","表B","表C"}
Dim s,sql As String
For Each s In Ls
sql+ = " UNION Select \'表\' As 表,\'" & s & "\' As 表名 ,年,月 From{" & s & "}"
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)
dt = cmd.ExecuteReader()
\'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")
tv.Nodes.Add("图表","图表")
[此贴子已经被作者于2011-9-11 15:58:16编辑过]
-- 发布时间：2011/9/11 16:18:00
-- [求助] 目录树管理表 求教
谢谢二位老师！
-- 发布时间：2011/9/11 16:47:00
--
以下是引用hhbb在2011-9-11 15:57:00的发言：
2.年,月改为整数,好排序
Dim Ls As String() = {"表A","表B","表C"}
Dim s,sql As String
For Each s In Ls
sql+ = " UNION Select \'表\' As 表,\'" & s & "\' As 表名 ,年,月 From{" & s & "}"
Next
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql.Substring(7)
dt = cmd.ExecuteReader()
\'生成目录树
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(dt,"表|表名|年|月")
tv.Nodes.Add("图表","图表")
[此贴子已经被作者于2011-9-11 15:58:16编辑过]
GoodGoodStudy.
-- 发布时间：2011/9/11 23:22:00
-- [求助] 目录树管理表 求教
还有个问题，需要请大师帮忙。点击目录树表中的年或月，使其显示年或月的筛选代码，再有劳大师，谢谢！
-- 发布时间：2011/9/11 23:49:00
--
-- 发布时间：2011/9/12 5:34:00
-- [求助] 目录树管理表 求教
谢谢 e-peg 大师！