主题：目录树统计

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

点击浏览该文件:管理项目2.zip

请老师帮我看看错在哪？谢谢！

e.Form.Controls("Table1").Table.Fill("Select  班级,学生姓名,缴费项目,缴费日期 From {缴费信息}", True)

   Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
   trv.BuildTree("窗口1_Table1", "缴费项目|班级|学生姓名")
   For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Value() As String
    Value = nd.FullName.Split("\") '注意这里用FullName属性,不能用FullPath属性
    Select Case nd.Level
    Case 0     
        nd.Text = nd.Text  & "  (" & Tables("窗口1_Table1").Compute("Count(学生姓名)","缴费项目 = '"& nd.Text & "'") & "人)"
    Case 1      
        nd.Text = nd.Text  & "  (" & Tables("窗口1_Table1").Compute("Count(学生姓名)","缴费项目 = '" & value(0) & "'and 班级 = '" & value(1) & "'" ) & "人)"
   End Select
  Next
  trv.ResumeRedraw
Tables("窗口1_Table1").AutoSizeCols()