S elect Case e.Col.Name \'判断列名称
        Case  "Bname"\'表名称列
            For Each dt As DataTable In DataTables
               Dim x As  String = dt.Name
               Dim x1 As  String     
                x1 = x1 & "|" & x
                e.Col.ComboList = x1
            Next
         Case   "Lname"   \'列 列名 列

                    Dim s As String = e.Row("Bname")\'表名称
            If  s<>"" Then   
                Dim cmd As New SQLCommand
                 Dim dt As DataTable
                 cmd.C                   
                    \'cmd.CommandText = "SELECT  *Fro m {专业类别}" 

                  cmd.CommandText = "SELECT  * Fro m  & s & "

                     dt = cmd.ExecuteReader()     
                Dim ckl As WinFor m.CheckedComboBox = e.For m.Controls("CheckedComboBox1")
                 For Each c As DataCol In dt.DataCols                 
                      ckl.Items.Add(c.name)
                 Next
           Else
                   MessageBox.Show("请输入表名称")
                   Return                 
           End If
End Selec t

以上下拉复选框错误，

下拉复选框没有出现

1、如果执行这个，什么效果？

cmd.CommandText = "SELECT * From {专业类别}" 

2、弹出你s的值 msgbox(s)