- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件下拉框不显示临时表的列内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54068)
-- 发布时间：2014/7/21 13:29:00
-- 控件下拉框不显示临时表的列内容
如题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2014/7/21 14:05:00
--
代码稍微调整一下
Dim cmd As new sqlcommand
cmd.commandtext="select 第一列,第二列 from {表A}"
Dim lsdt As DataTable=cmd.ExecuteReader()
e.Form.controls("table1").Table.datasource=lsdt
Dim cmb As WinForm.checkedComboBox
cmb = e.form.Controls("CCB1")
cmb.DisplayMember = "第二列" \'设置显示列
cmb.ValueMember = "第一列" \'设置取值列
cmb.DataSource = "窗口1_Table1" \'列表项目来自于客户表
-- 发布时间：2014/7/21 14:08:00
--
Dim cmd As new sqlcommand
cmd.commandtext="select 第一列,第二列 from {表A}"
Dim lsdt As DataTable=cmd.ExecuteReader()
e.Form.controls("table1").Table.datasource=lsdt
Dim cmb As WinForm.checkedComboBox
cmb = e.form.Controls("CCB1")
cmb.DisplayMember = "第二列" \'设置显示列
cmb.ValueMember = "第一列" \'设置取值列
cmb.DataSource = e.Form.controls("table1").Table.DataTable.name \'列表项目来自于客户表