'ดับเบิลคลิกที่ radiobutton1 แล้วใส่โค้ดนี้
combobox1.item.clear()
if radio1.checked then
combobox1.item.add("ก")
combobox1.item.add("ข")
combobox1.item.add("ค")
end if
'เหตุการ์นี้คือ ถ้าเกิดว่าติ๊กเลือกที่ radiobutton1ที่ชื่อว่า อักษรไทย คอมโบบ๊อกของคุณก็จะมีคำว่า ก ข ค ขึ้นมาให้เลือกครับ
'ดับเบิลคลิกที่ radiobutton2 แล้วใส่โค้ดนี้
combobox1.item.clear()
if radio2.checked then
combobox1.item.add("a")
combobox1.item.add("b")
combobox1.item.add("c")
end if
'เหตุการ์นี้คือ ถ้าเกิดว่าติ๊กเลือกที่ radiobutton2ที่ชื่อว่า อักษรENG คอมโบบ๊อกของคุณก็จะมีคำว่า a b c ขึ้นมาให้เลือกครับ
'เรียกข้อมูลที่ต้องการ
Str="SELECT * FROM Stock1"
con.open()
com=New SqlComMand(Str,Connection)
rs = com.Executereader
while rs.read
Combobox1.item.Add(rs("Field"))
end while
con.close()
Dim str As String
Dim com As OleDb.OleDbCommand
Dim rs As OleDb.OleDbDataAdapter
Dim myconnection As New OleDb.OleDbConnection
Dim DT As New DataTable
str = "SELECT * FROM Stock1คงเหลือ"
myconnection.Open()
com = New OleDb.OleDbCommand(str, myconnection)
rs = New OleDb.OleDbDataAdapter(com)
rs.Fill(DT)
myconnection.Close()
DataGridView1.DataSource = DT