- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ComboList 出错，请指点问题出在哪里呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28277)
-- 发布时间：2013/1/24 1:43:00
-- ComboList 出错，请指点问题出在哪里呢？
我想在点击COMBOLIST2的时候取 COMBOLIST1中的值作为条件，查询另一个表中的数据，但执行出错实在找不出哪里出问题了。
此主题相关图片如下：qq截图20130124013602.png
代码：
Dim lydw As WinForm.ComboBox = e.Form.Controls("ComboBox1") \'领用单位
Dim dt As DataTable
If lydw.value <>""
Dim r As DataRow = DataTables("KCBMZD").Find("KCBMZD_BMMC = \'" & lydw.value & "\'")
If r IsNot Nothing Then
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "select ZWZGZD_ZGXM from {ZWZGZD} where ZWZGZD_BMBH = \'" & r("KCBMZD_BMbh") & "\'"
dt = cmd.ExecuteReader()
e.Sender.ComboList = dt.GetComboListString("ZWZGZD_ZGXM")
End If
End If
点击COMBOLIST2后有如下提示：
此主题相关图片如下：qq截图20130124013955.png
我加了一个弹出窗口返回的值也是对的：
此主题相关图片如下：qq截图20130124014152.png
请问问题出在哪里？
-- 发布时间：2013/1/24 9:32:00
--
看来看去是SQL语句是不是少了一个重复值的函数吧.
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("客户")
-- 发布时间：2013/1/24 9:35:00
--
呃，楼主，在代码看来，是没有错的。
是否你个这个combolist控件设置了列表项目来源于某个数据表了？
-- 发布时间：2013/1/24 10:52:00
--
看来看去是SQL语句是不是少了一个重复值的函数吧.
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("客户")
这个去重我也试了不管用。真是奇怪 。我COMBOLIST2是直接复制的COMBOLIST1的。而1却很正常。。。。我真是摸不着头脑了，上面的代码用了无数次。。
-- 发布时间：2013/1/24 10:57:00
--
不是代码的问题，看看你的控件的设置……
又或者你弄一个新的控件来测试，说不定就好了。
具体看3楼。