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

上面的代码不应该出现这个问题的。

出问题的代码应该筛选窗口的ComboBox2的Textchanged事件。

用下面的方法定位出错误代码位置所在的行，然后分析原因：

 

http://www.foxtable.net/help/topics/1485.htm

 

谢谢，现试试了

 

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数据库时，就不会自动加入值了，也就出现上述错误提示。

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

可能你没有把外部表加入到foxtable吧。

还有，你e.Form.Controls("ComboBox1").text 的值是怎么形成的？

选择表后自动形成

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