- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问下图目录树如何形成？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63831)
-- 发布时间：2015/1/29 17:25:00
-- 请问下图目录树如何形成？
请问下图目录树如何形成？
此主题相关图片如下：1.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目21.rar |
[此贴子已经被作者于2015-1-29 17:35:54编辑过]
-- 发布时间：2015/1/29 17:27:00
--
http://www.foxtable.com/help/topics/0917.htm
参考帮助
-- 发布时间：2015/1/29 17:48:00
--
我看过，目录树我会形成，就是如何把23-31移到上面，1-22移到后面，“moveup”如何使用
[此贴子已经被作者于2015-1-29 17:49:02编辑过]
-- 发布时间：2015/1/29 18:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目21.rar |
-- 发布时间：2015/1/29 18:17:00
--
谢谢有点甜老师，再次感谢
-- 发布时间：2015/1/30 12:21:00
--
接着问：
我另加了一个表sys_设置，有一列：每月第一天，这样输入天数后，可以任意设置每月第一天，如：把23日做第一天，或25日做第一天。
这样可以通用
在引用时，出现错误
此主题相关图片如下：2.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目21.rar |
-- 发布时间：2015/1/30 13:01:00
--
Dim dr As DataRow = DataTables("sys_设置").DataRows(0)
Dim Val As String = dr("每月第一天")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "S elect iif(日>=" & val & ",0,1) As 顺序日, 年, 月, 日 from {表A}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日", "", "年,月,顺序日,日")
trv.Nodes.Insert("显示所有行",0)