strSQL = "select title from assess where title != '' and no BETWEEN '1' AND '20' " & _
"order by no ASC limit 20;"
dtAdapter = clsConn.BindData(strSQL)
dtAdapter.Fill(dtTableLV2)
Me.DGVlv2.DataSource = dtTableLV2
Me.DGVlv2.Columns.Clear()
Dim col_txt As DataGridViewTextBoxColumn
Dim col_cbb As DataGridViewComboBoxColumn
col_txt = New DataGridViewTextBoxColumn
col_txt.DataPropertyName = "title"
col_txt.HeaderText = "ตอนที่ 2 ข้อเท็จจริงเกี่ยวกับการสอน"
Me.DGVlv2.Columns.Add(col_txt)
col_cbb = New DataGridViewComboBoxColumn
col_cbb.Items.Add("มี") 'ตรงนี้ถูกไหมครับหรือยังไงผมลองหลายวิธีแล้ว
col_cbb.Items.Add("ไม่มี") 'ตรงนี้ถูกไหมครับหรือยังไงผมลองหลายวิธีแล้ว
Me.DGVlv2.Columns.Add(col_cbb)