Dim 省市 As String = e.Form.Controls("TreeView1").Value Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'" dt = cmd.ExecuteReader() '生成统计表 Dim dst As WinForm.DataList = e.Form.Controls("DataList1") dst.DataTable = dt dst.Build()