Private Sub _com1()
If cn.State = ConnectionState.Open Then cn.Close()
connect_open()
Dim sql1 As String = "SELECT banktitle,bankname,adbank,urn FROM bname"
Dim da As New SqlDataAdapter(sql1, cn)
Dim dt As New DataTable
da.Fill(dt)
With cbb_select_bank
.DataSource = dt
.DisplayMember = dt.Columns.Item("banktitle").ColumnName
.ValueMember = dt.Columns.Item("bankname").ColumnName
.SelectedText = dt.Columns.Item("adbank").ColumnName
.SelectedIndex = dt.Columns.Item("urn").ColumnName <<< ผมต้องแก้ไขตรงนี้ไช่ไหม แล้วแก้เปนยังไง
End With
End Sub
โค๊ดช่อง combobox
Code (VB.NET)
Private Sub cbb_select_bank_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbb_select_bank.SelectedIndexChanged
TextBox1.Text = cbb_select_bank.SelectedIndex.ToString() <<< ตัวเรียกไช้ไช้เปนอะไร
End Sub
Tag : .NET, VB.NET, VS 2008 (.NET 3.x), VS 2010 (.NET 4.x), VS 2012 (.NET 4.x)
Private Sub cbb_select_bank_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbb_select_bank.SelectedIndexChanged
TextBox1.Text = cbb_select_bank.Text
End Sub
With cbb_select_bank
.DataSource = dt
.DisplayMember = dt.Columns.Item("banktitle").ColumnName
.ValueMember = dt.Columns.Item("urn").ColumnName 'สำหรับเก็บ ID /FK ไปใช้งาน
End With
Code (VB.NET)
Private Sub cbb_select_bank_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbb_select_bank.SelectedValueChanged
MessageBox.Show("" & ComboBox1.SelectedValue)
'มันจะดึงเอา "urn" มาโชว์
End Sub
ตัวอย่างนะครับ
Code (VB.NET)
Public Class Form1
'การจัดการมีแค่ 3 แถวนี้
Me.ComboBox1.DataSource = Me.BankBindingSource
Me.ComboBox1.DisplayMember = "BankName_1"
Me.ComboBox1.ValueMember = "BankCode"
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
MessageBox.Show("" & ComboBox1.SelectedValue & vbCrLf & ComboBox1.Text)
End Sub
End Class
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
MessageBox.Show("" & ComboBox1.SelectedValue & vbCrLf & ComboBox1.Text)
End Sub
เพราะ เราได้เชื่อมกับ อีกตารางเรียบร้อยแล้ว
แค่นี้ พอ User กดเลือก ข้อมูล BankCode จากตาราง Bank จะไปอยู่ใน Contact_BankID จากตาราง Contactlist เรียบร้อยครับ