- 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=115107)
-- 发布时间：2018/3/1 10:33:00
-- SQL下动态下拉列表如何写
常规实现窗体控件下拉列表按下面写法
Dim cmb As WinForm.ComboBox = e.form.Controls("供应商名称")
cmb.ComboList = DataTables("供应商").GetComboListString("名称")
请教老师，如使用SQL数据源，不设置外部数据表要如何写，数据库名为DB
-- 发布时间：2018/3/1 10:45:00
--
动态添加临时表进来用，如
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("客户")
-- 发布时间：2018/3/1 13:14:00
--
此主题相关图片如下：qq图片20180301131306.png
-- 发布时间：2018/3/1 14:49:00
--
如果写成函数，这样写
Dim cmd As New SQLCommand
cmd.ConnectionName = "db"
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"
dt = cmd.ExecuteReader()
return dt
-- 发布时间：2018/3/1 15:36:00
--
搞定，谢谢甜老师
