主题：打印和目录树加载问题

Dim tv As WinForm.TreeView
tv =e.Form.Controls("签到单时间")

Dim Nd = tv.Nodes.Add("全部时间")
Dim dt As DataTable = DataTables("考试数据表")
Dim nds As new List(Of WinForm.TreeNode)
For i As Integer = 0 To 3
    nds.Add(nd)
Next
For Each arys As String() In dt.GetValues("短日期|起始时间|教室", "", "短日期,起始时间,教室")
    Dim flag As Boolean = False
    For i As Integer = 0 To arys.Length - 1
        If nds(i+1).Name <> arys(i) OrElse flag Then
            flag = True
            nds(i+1) = nds(i).Nodes.Add(arys(i))
        End If
    Next
Next

汗

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:国家开放大学考务系统.rar