Dim trv As WinForm.TreeView = forms("筛选树测试").Controls("TreeView1")
trv.BuildTree(dt, ckbb1.Text )
trv.StopRedraw
Dim fi As String=""
Dim fi0 As String=""
Dim sb As Integer =0
For Each nd As WinForm.TreeNode In trv.AllNodes
If ND.Level = 0 Then
fi = jds(0) & " = '" & nd.DataRow(jds(0)) & "'"
fi0 =FI
Else
If nd.Level = sb OrElse nd.Level < sb Then
fi = fi0
End If
End If
Output.Show(ND.Level)
Output.Show("FI0=" & fi0)
Output.Show("XX" & FI )
'If ND.Nodes.Count>0 Then
For i As Integer =0 To jds.Count -1
If nd.Level = i AndAlso nd.Level>0 Then 'AndAlso nd.Level<>sb
fi0=fi
fi = jds(I) & " = '" & nd.DataRow(jds(I)) & "' and " & fi
sb = nd.Level
End If
Next
Output.Show(fi )
nd.Text =nd.Text & "(" & dt.Compute("Sum(设备数)",fi ) & "台)"
Next
trv.ResumeRedraw
感觉被绕晕了。。。
加好友 
发短信
Post By：2022/4/14 17:15:00 [显示全部帖子]
或者有没有类似用checkedcombobox生成目录树的例子
