''''''

Question

Dim Form_ID As String
        Dim Str_ID() As String
        Dim sSelectCmd1 As String
        Dim sSelectCmd2 As String
        Dim dr As New SqlDataAdapter
        Dim ds As New DataSet        DBopen()
        sSelectCmd1 = "SELECT  FormID_Name  FROM   dicformView"
        Comm = New SqlCommand(sSelectCmd1, Conn)
        dr.Fill(ds)     ''这里为什么读不过啊  报错啊 
        ComboBox1.DataSource = ds        ComboBox1.DisplayMember = " FormID_Name "        Str_ID = Split(ComboBox1.Text, "-")
        Form_ID = Str_ID(0)
        sSelectCmd2 = "select ObjectID from dicFormObjectCond  where FormID = '" & Form_ID & "'"
        Comm = New SqlClient.SqlCommand(sSelectCmd2, Conn)
        ComboBox2.DataSource = ds
        ComboBox2.DisplayMember = " ObjectID "
        dr.Fill(ds)    ''这里为什么读不过啊  报错啊 
        ComboBox2.SelectedIndex = 0
        DBclose()
        Comm.Dispose()

Answer 1

DataSet ds = new DataSet();
SqlDataAdapter adapter = new SqlDataAdapter(sql,Conn);
adapter.Fill(ds);

Answer 2

dr,,ds  我都初始化了 啊...
还是dr.Fill(ds)读不过啊 ....

Answer 3

什么错误？？？把DBopen()去掉如果你按照我上面的写法还不对
那只能是sql语句错误
或者连接数据库失败~~~