SQL列到TextBox（来自ComboBox）

在

SelectedIndex_Changed

Dim dt As New DataTablePrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles Mybase.Load    Dim con As New SqlConnection("Data Source=xxxx;Initial Catalog=ltLeavers;Integrated Security=True")    Dim da As New SqlDataAdapter("SELECT * FROM dbo.mytable", con)    da.Fill(dt)    ComboBox1.DisplayMember = "DISPLAY_NAME"    ComboBox1.DataSource = dtEnd SubPrivate Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged    Textbox1.Text = CStr(dt.Rows(ComboBox1.SelectedIndex)("EMAIL_ADDRESS"))    Textbox2.Text = CStr(dt.Rows(ComboBox1.SelectedIndex)("DEPARTMENT"))End Sub

您将需要在表单的load事件之外声明数据表dt，以便组合框的SelectedIndex_Changed事件可以看到它。