Dim ccb1 As WinForm.CheckedComboBox = e.Form.Controls("checkedcombobox1")
Dim dr As DataRow = DataTables("学校信息").find("单位全称='" & _usergroup &"'")
sszxx=dr("所属中心校")
Dim xxlist As String = DataTables("学校信息").sqlGetComboListString("单位全称","所属中心校='" & sszxx & "' and 学段='小学'")
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.cSEL ECT DISTINCT 考试名称,单位名称,年级,班级 From {成绩} where 学段 ='小学' and 单位名称 in ('" & xxlist.replace("|",",") & "') order by 考试名称 desc"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"考试名称|单位名称|年级|班级","","考试名称 desc")
请问老师,上面这段没有产生目录树列表,该怎么改