主题：SQL下动态下拉列表如何写

动态添加临时表进来用，如

 

Dim cmd As New SQLCommand
cmd.ConnectionName = "db"
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("客户")

此主题相关图片如下：qq图片20180301131306.png

如果写成函数，这样写

 

Dim cmd As New SQLCommand
cmd.ConnectionName = "db"
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"
dt = cmd.ExecuteReader()
return dt

 

 

搞定，谢谢甜老师