共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助] 目录树管理表 求教
1楼
老有所乐 发表于：2011/9/11 14:43:00求表A窗口1中目录树代码：
1，当点击目录树中的表名，被点击的表能在窗口中显示。如点击目录树中的表A，窗口中就会显示表A。
2，表A，表B，表C 都有“日期”， “年”，“月”列，目录树如何会在表名子节点自动显示表的年和月。
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.table |
2楼
e-png 发表于：2011/9/11 14:58:00Dim 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
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
3楼
hhbb 发表于：2011/9/11 15:57:002.年,月改为整数,好排序
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编辑过]
4楼
老有所乐 发表于：2011/9/11 16:18:00 谢谢二位老师！
5楼
e-png 发表于：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.
6楼
老有所乐 发表于：2011/9/11 23:22:00还有个问题，需要请大师帮忙。点击目录树表中的年或月，使其显示年或月的筛选代码，再有劳大师，谢谢！
7楼
e-png 发表于：2011/9/11 23:49:008楼
老有所乐 发表于：2011/9/12 5:34:00谢谢 e-peg 大师！
共8 条记录, 每页显示 10 条, 页签:
[1]