主题：SQL查询窗口出错

这个是固定的列表项目？？  如：表1|表2| ````

再说你窗口的ComboBox2的Textchanged事件 是上面的代码？？？

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楼

先用下面的方法，找出错误代码所在的行：

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