给你应急的:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd,nd1,nd2,nd3 As WinForm.TreeNode
Dim flt,s1,s2,lbs,lbs1,mqs3 As String
Dim dt1 As DataTable = DataTables("基础信息")
mqs3 = dt1.GetComboListString("名称")
trv.Nodes.Clear
For Each flt In mqs3.split("|")
flt ="名称 ='" & flt & "'"
lbs =dt1.GetComboListString("一类",flt,"排序列")
For Each s1 In lbs.split("|")
nd = trv.Nodes.Add(s1)
lbs1 =dt1.GetComboListString("二类",flt & " And 一类 ='" & s1 & "'","排序列")
If lbs1 > "" Then
For Each s2 In lbs1.split("|")
nd1 = nd.Nodes.Add(s2)
Next
End If
Next
Next
For Each nd In trv.AllNodes
If nd.Level = 1 Then
s1= nd.FullPath
lbs =dt1.GetComboListString("三类","一类 ='" & s1.split("\")(0) & "'And 二类 = '" & s1.split("\")(1) & "'" ,"排序列")
If lbs > "" Then
For Each s2 In lbs.split("|")
nd2 = nd.Nodes.Add(s2)
Next
End If
End If
Next
[此贴子已经被作者于2013-4-25 8:06:08编辑过]