一个简单的问题有关动态生成控件

Question

现在有两张表一张表保存的是题型如填空题,问答题    另一张表是题目
我的思路是对题型表做循环，读出题型然后根据根型表再读出题目
有啥好办法
但我做到以下时动态生成label输入题型时前台就输出不了请问是为啥
 sqlstr = "select * from fnc_subject_class where chkvalid=0"
        objconn = New SqlConnection(strdsn)
        objconn.Open()
        objcmd = New SqlCommand(sqlstr, objconn)
        objdatareader = objcmd.ExecuteReader
        Do While objdatareader.Read
            Dim label2 As New Label
            Label2.Text = objdatareader("chname")
        Loop

Answer 1

sqlstr = "select * from fnc_subject_class where chkvalid=0"
        objconn = New SqlConnection(strdsn)
        objconn.Open()
        objcmd = New SqlCommand(sqlstr, objconn)
        objdatareader = objcmd.ExecuteReader
        Do While objdatareader.Read
            Dim label2 As New Label
            Label2.Text = objdatareader("chname")
        Loop改成 sqlstr = "select * from fnc_subject_class where chkvalid=0"
        objconn = New SqlConnection(strdsn)
        objconn.Open()
        objcmd = New SqlCommand(sqlstr, objconn)
        objdatareader = objcmd.ExecuteReader
        Do While objdatareader.Read
            Dim Label2 As New Label
            Label2.id="Label2"
            me.controls.add(Label2)
            Label2.Text = objdatareader("chname")
        Loop