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

请问问题出在哪里？