主题：SQL查询窗口出错

设计好的程序迁移到SQL数据库后，在查询时出现以下提示，因为对SQL不太熟悉，请问应该怎样解决。
此主题相关图片如下：qq截图未命名.png

代码如下：Dim dt As String = e.Form.Controls("ComboBox1").text '表名控件
Dim c As String
If DataTables.Contains(dt) Then
    For Each dc As DataCol In DataTables(dt).DataCols
        c = c & "|" & dc.Name
    Next
     Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2") '列名控件
      Dim cb7 As WinForm.ComboBox = e.Form.Controls("ComboBox7") '列名控件
        cb2.comboList = c.Trim("|")
        cb7.comboList = c.Trim("|")
       '加入以下5行代码后,当选择表后,组合框3和5会自动加入所选表的第一列第一行的值
    cb2.SelectedIndex = 0
    Dim cmb5 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
    If cmb5.combolist > ""
        cmb5.SelectedIndex = 0
    End If
End If
MainTable = Tables( dt )
'

谢谢，现试试了

 

Dim dt As String = e.Form.Controls("ComboBox1").text '表名控件

Dim c As String

If DataTables.Contains(dt) Then

    For Each dc As DataCol In DataTables(dt).DataCols

        c = c & "|" & dc.Name

 

    Next

     Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2") '列名控件

      Dim cb7 As WinForm.ComboBox = e.Form.Controls("ComboBox7") '列名控件

        cb2.comboList = c.Trim("|")

        cb7.comboList = c.Trim("|")

       '加入以下5行代码后,当选择表后,组合框3和5会自动加入所选表的第一列第一行的值

    cb2.SelectedIndex = 0

    Dim cmb5 As WinForm.ComboBox = e.Form.Controls("ComboBox3")

    If cmb5.combolist > ""

        cmb5.SelectedIndex = 0

    End If

End If

MainTable = Tables( dt )

程序运行，发现在内部表时“COMBOX1”选定表时，会在组合框3和5自动加入所选表的第一列第一行的值。但是转到外部数据源SQL数据库时，就不会自动加入值了，也就出现上述错误提示。

可能是赋值语句错误，请帮忙修改一下上述代码！！

选择表后自动形成

已经连接了外部数据源，可以查询的，只是会出现出错提示

ComboBox2的Textchanged事件

 

 

'当选择combobox2即组合框2时,组合框3能自动将组合框2显示的列的内容不重复显示出来
Dim i As String = e.Form.Controls("ComboBox1").value    '定义一个组合框,以供在窗口显示表用 
With e.Form
    Dim cmb1 As WinForm.ComboBox = .Controls("ComboBox3")   '定义一个组合框类ccmb1
    Dim cmb2 As WinForm.ComboBox = .Controls("ComboBox2")  'cmb2=组合框类2
   cmb1.Items.Clear '清除所有录入框数据
    Dim cmd As New SQLCommand   '定义一个新的SQLCommand,这个类用于执行SQL命令.
    Dim dt As DataTable
    cmd.CommandText = "Select  DISTINCT " & cmb2.Value & " from {"& i &"} Where " & cmb2.Value & " Is Not Null"   '需要排除重复的行,可以在字段列表前面加上关键词DISTINCT
    dt = cmd.ExecuteReader() 'ExecuteReader生成一个DataTable(临时表),只有在代码执行过程中才存在,也不会显示在界面中,所以用户感觉不到这个DataTable的存在.
    For Each dr As DataRow In dt.Datarows
        cmb1.Items.Add(dr(cmb2.Value )) 'Items字符集合,表示所有的自定义列表项目.增加一个列表项目
    Next
    cmb1.SelectedIndex = 0  'SelectedInde选中第一个页面位置
End With

那位高手，帮看看这个问题！！！

出错提示在1楼