主题：列表的代码出错

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "Select s_ID,u_Code,u_Name from dbo.StorHouse where s_Syb=1 and u_Name not in ('***')"
cmd.C
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = dt.AddNew()
dr("s_ID") = "0"
dr("u_Code") = "ALL"
dr("u_Name") = "查询所有库房"
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("u_Name")

以前是不会出错的，这次更新后就出错

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "Select s_ID,u_Code,u_Name from dbo.StorHouse where s_Syb=1 and u_Name not in ('***')"
cmd.C
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = dt.AddNew()
dr("s_ID") = "0"
dr("u_Code") = "ALL"
dr("u_Name") = "查询所有库房"
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("u_Name")

 

今天下载的

提示：
不存在名称为“”的DataTable

不懂，麻烦8楼楼主，给个代码，谢谢

我目前只能将其改为这个：

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT u_Name From StorHouse where s_Syb=1 and u_Name not in ('***') union select '查询所有库房' As 'u_Name'"
cmd.C
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("u_Name")

谢谢