以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:多外部表返回的数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28290)
--  作者：kevin
--  发布时间：2013/1/24 14:36:00
--  请教:多外部表返回的数据问题

窗口中有ComboBox控件:

以下代码.从数据源:"gmp" 的"员工信息表中 返回"所属部门"信息.

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.C
cmd.CommandText = "SELECT DISTINCT 所属部门 From {员工信息}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("所属部门")

 

我现在希望CheckedComboBox控件,能同时根据ComboBox所返回的信息,过虑出来对应该部门的岗们信息.

以下代码应该如何写?
--  作者：lin_hailun
--  发布时间：2013/1/24 14:51:00
--  
 编写ComboBox控件的对应事件，ValueChanged

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT DISTINCT XXX From {员工信息} Where 所属部门 = \'" & e.Sender.Text & "\'"
dt = cmd.ExecuteReader()
e.Form.Controls("CheckedComboBox1").ComboList = dt.GetComboListString("XXX")
--  作者：kevin
--  发布时间：2013/1/24 14:59:00
--  

你好!

我在

ValueChanged事件中使用如下代码.但提示 " cmd.c为错误代码"

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT DISTINCT XXX From {员工信息} Where 所属部门 = \'" & e.Sender.Text & "\'"
dt = cmd.ExecuteReader()
e.Form.Controls("CheckedComboBox1").ComboList = dt.GetComboListString("XXX")

 

 
--  作者：lin_hailun
--  发布时间：2013/1/24 15:06:00
--  
 呃……楼主，请注意变通……

 你1楼的cmd.C是什么代码？还有就是你还要替换XXX哦。
[此贴子已经被作者于2013-1-24 15:06:24编辑过]