Dim cm As String = e.form.Controls("combobox1").Value Dim tx As String = e.form.Controls("textbox3").Value Dim dst As WinForm.DataList = e.Form.Controls("DataList1") Dim cmd As New SQLCommand if cm = "柜号" then cmd.CommandText = "SELECT * From {柜型柜号} 柜号 like '" & tx & "'" end if dst.DataTable = cmd.ExecuteReader() dst.Build()