Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(gt, "年|月|日|分类|部件")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Dim Day As Integer = nd.DataRow("日")
Dim type As String = nd.DataRow("分类")
Dim component As String = nd.DataRow("部件")
Select Case nd.Level
Case 0
nd.Text = nd.text & "年(" & gt.Compute("Sum(数量)", "年 = " & Year) & "个)"
Case 1
nd.Text = nd.text & "月(" & gt.Compute("Sum(数量)", "年 = " & Year & " And 月 = " & Month) & "个)"
Case 2
nd.Text = nd.text & "日(" & gt.Compute("Sum(数量)", "年 = " & Year & " And 月 = " & Month & " And 日 = " & Day) & "个)"
Case 3
nd.Text = nd.text & "日(" & gt.Compute("Sum(数量)", "年 = " & Year & " And 月 = " & Month & " And 日 = " & Day & " And 分类 = " & type) & "个)"
Case 4
nd.Text = nd.text & "(" & gt.Compute("Sum(数量)", "年 = " & Year & " And 月 = " & Month & " And 日 = " & Day) & "个)"
End Select
Next
trv.Nodes.Insert("[显示所有行]", "显示所有行(" & Val(gt.Compute("Sum(数量)")) & "个)", 0)
trv.ResumeRedraw
代码如上，点击case3的时候提示找不到列，前面1，2都可以，是case3的后面的条件写错了吗
加好友 
发短信
Post By：2024/4/2 11:59:00 [只看该作者]
