- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树的问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76219)
-- 发布时间：2015/10/24 7:25:00
-- [求助]目录树的问题。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选树的问题.table |
-- 发布时间：2015/10/24 7:25:00
--
此主题相关图片如下：捕获.png
-- 发布时间：2015/10/24 7:27:00
--
弄了很久，都不知道那出错了，谢谢帮助？？
-- 发布时间：2015/10/24 7:29:00
--
再问：是否可以把主窗口改为独立或模式窗口？
-- 发布时间：2015/10/24 9:50:00
--
函数这里
......
For Each Nd As WinForm.TreeNode In TvwCtl.AllNodes
If Nd.Level = i Then
Dim idx = Nd.Text.IndexOf(" ")
If idx > 0 Then
Nd.Text = Nd.Text.SubString(0,idx)
End If
End If
Next
......
-- 发布时间：2015/10/24 9:58:00
--
主窗口和独立或模式窗口只能设置一个
-- 发布时间：2015/10/24 16:23:00
--
麻烦您了，是否可以在项目你帮我改哈！我还是没有改对。
-- 发布时间：2015/10/25 13:55:00
--
能否有老师，帮助一下嘛
-- 发布时间：2015/10/25 16:46:00
--
\'此函数用于更新主窗口左侧的Treeview控件
Dim TvwCtl As WinForm.TreeView = Args(0) \'要更新的Treeview控件
Dim TblName As String = Args(1) \'数据来源表
Dim Columns As String = Args(2) \'要构建Treeview的字段
If Tables(TblName).Rows.Count = 0 Then Return Nothing
TvwCtl.Form.StopRedraw
TvwCtl.BuildTree(TblName ,Columns)
Dim ArrColName() As String = Columns.Split("|")
For i As Integer = 0 To Ubound(ArrColName)
If DataTables(TblName).DataCols(ArrColName(i)).IsDate Then
Dim Dt As Date = DataTables(TblName).DataRows(0)(ArrColName(i))
If Dt.Hour = 0 And Dt.Minute = 0 And Dt.Minute = 0 Then
For Each Nd As WinForm.TreeNode In TvwCtl.AllNodes
If Nd.Level = i Then
Dim idx = Nd.Text.IndexOf(" ")
If idx > 0 Then
Nd.Text = Nd.Text.SubString(0,idx)
End If
End If
Next
End If
End If
Next
TvwCtl.Nodes.Insert("显示所有行",0)
TvwCtl.Form.ResumeRedraw
-- 发布时间：2015/10/25 22:39:00
--
感谢狐狸爸爸！期待新版！