以文本方式查看主题

-  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)

--  作者:unverse
--  发布时间: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
图片点击可在新窗口打开查看

 

请问问题出在哪里?


 


--  作者:blackzhu
--  发布时间: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(
"客户"
)


--  作者:lin_hailun
--  发布时间:2013/1/24 9:35:00
--  
 呃,楼主,在代码看来,是没有错的。

 是否你个这个combolist控件设置了列表项目来源于某个数据表了?

--  作者:unverse
--  发布时间:2013/1/24 10:52:00
--  
以下是引用blackzhu在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(
"客户"
)

这个去重我也试了不管用。真是奇怪 。我COMBOLIST2是直接复制的COMBOLIST1的。而1却很正常。。。。我真是摸不着头脑了,上面的代码用了无数次。。


--  作者:lin_hailun
--  发布时间:2013/1/24 10:57:00
--  
 不是代码的问题,看看你的控件的设置……

 又或者你弄一个新的控件来测试,说不定就好了。

 具体看3楼。
[此贴子已经被作者于2013-1-24 10:59:14编辑过]