主题：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

 

请问问题出在哪里？

 

看来看去是SQL语句是不是少了一个重复值的函数吧.

 呃，楼主，在代码看来，是没有错的。

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

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

 不是代码的问题，看看你的控件的设置……

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

 具体看3楼。