主题：关于treeview 大量命令需要组织的代码编写问题

参考

http://www.foxtable.com/webhelp/scr/0917.htm

要说多少次？请上传实例啊

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

afterLoad事件

Dim trv As WinForm.TreeView = e.Form.controls("treeview1")
Dim fz_sj As WinForm.TreeNode = trv.Nodes("我的项目").Nodes("按时间分")
Dim dt As DataTable = DataTables("项目信息表")
For Each sj As String In dt.GetValues("项目时间")
    fz_sj.Nodes.Add(sj)
Next

Dim fz_lx As WinForm.TreeNode = trv.Nodes("我的项目").Nodes("按类型分")
fz_lx.nodes.Clear
For Each lx As String In dt.GetValues("项目类型")
    fz_lx.Nodes.Add(lx)
Next

AfterSelectNode事件

Dim t As Table = Tables("项目信息表")
If e.Node.Level = 2 Then
    Dim ary() As String = e.node.FullName.Split("\")
    If ary(1) = "按时间分" Then
        t.filter = "项目时间='" & ary(2) & "'"
    ElseIf ary(1) = "按类型分" Then
        t.filter = "项目类型='" & ary(2) & "'"
    End If
End If