以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列做下拉框，从SQL数据库中取本列中不重复值的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140946)
--  作者：weibu
--  发布时间：2019/9/18 8:06:00
--  列做下拉框，从SQL数据库中取本列中不重复值的代码
老师好：列做下拉框，从SQL数据库中取本列中不重复值的代码或做法？
--  作者：有点蓝
--  发布时间：2019/9/18 8:39:00
--  
参考：http://www.foxtable.com/webhelp/topics/0696.htm，看ExecuteReader的示例一

示例一

同样，假定窗口中有一个组合框(ComboBox)，希望这个窗口能够列出订单表所有的客户名称，如果订单表采用动态加载，或者根本没有加载，那么显然无法从订单表中获得所有客户名称，只能利用ExecuteReader直接从后台提取：

Dim cmd As New SQLCommand
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("客户")
--  作者：weibu
--  发布时间：2019/9/21 10:58:00
--  
在表PrepareEdit编辑代码
If e.Col.Name = "role" Then 
     e.Col.Combolist = DataTables("rs_userinfo").GetComboListString("role") 
End If
[此贴子已经被作者于2019/9/21 11:05:03编辑过]