同步ComboBox1和ComboBox2. [英] Synchronizing ComboBox1 and ComboBox2.

问题描述

我有两个表， tblTerminal 和 tblDestination ， tblTerminal 有两个列 ID 和 Place . tblDestination 也有两列 ID 和目的地.这是 tblTerminal 的表数据:
ID = 1、2
航站楼=怡朗市，古董
这是 tblDestination 的表数据:
ID = 1，1，1，1，2，2，2，2
目的地= Molo，Guimbal，Tigbauan，Miag-ao，Guinsangan，Tiolas，San Joaquin，Mojon

我想要的是在ComboBox1中选择Iloilo时，ComboBox2将显示Molo，Guimbal，Tigbauan和Miag-ao.当我在ComboBox1中选择Antique时，ComboBox2将显示Guinsangan，Tiolas，San Joaquin和Mojon.

请在我的论文项目中帮助我！

这是我的代码:

I have two tables, tblTerminal and tblDestination, tblTerminal had two Columns ID and Place. tblDestination also had two columns ID and Destinations. Here is the table data of tblTerminal:
ID = 1, 2
Terminal = Iloilo City, Antique
and here is the table data of tblDestination:
ID = 1, 1, 1, 1, 2, 2, 2, 2
Destinations = Molo, Guimbal, Tigbauan, Miag-ao, Guinsangan, Tiolas, San Joaquin, Mojon

What I want is when I choose Iloilo in ComboBox1, ComboBox2 will show Molo, Guimbal, Tigbauan, and Miag-ao. And When I choose Antique in ComboBox1, ComboBox2 will show Guinsangan, Tiolas, San Joaquin, and Mojon.

PLEASE HELP ME IN MY THESIS PROJECT!!

HERE IS MY CODE:

Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class Form1
    Dim da As SqlDataAdapter
    Dim ds As New DataSet
    Dim binding As Binding
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dr As DataRelation
        Dim cn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Vargas\Documents\Visual Studio 2008\Projects\Trial02\Trial02\dbTial02.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
        Dim sql As String = "SELECT * FROM tblTerminal"
        Dim sql2 As String = "SELECT * FROM tblDestination"
        Dim da As New SqlDataAdapter(sql, cn)
        Dim da2 As New SqlDataAdapter(sql2, cn)
        da.Fill(ds, "tblTerminal")
        da2.Fill(ds, "tblDestination")
        dr = New DataRelation("TermDes", ds.Tables("tblTerminal").Columns("IDTerminalPlace"), ds.Tables("tblDestination").Columns("IDTerminalPlace"), True)
        ds.Relations.Add(dr)
        ComboBox1.DataSource = ds.Tables("tblTerminal")
        ComboBox1.DisplayMember = "TerminalPlace"
        ComboBox1.ValueMember = "IDTerminalPlace"
        ComboBox1.DataBindings.Add("SelectedValue", ds, "tblDestination.IDTerminalPlace")
        ComboBox2.DataSource = ds
        ComboBox2.DisplayMember = "TermDes"
    End Sub
End Class

我的问题是ComboBox2没有显示任何内容.请帮助我..

my problem is that ComboBox2 doesn''t show anything. please help me..

推荐答案

更改

Change

ComboBox2.DataSource = ds
ComboBox2.DisplayMember = "TermDes"

到

to

ComboBox1.DataSource = ds2.Tables("tblDestination")
ComboBox2.DisplayMember = "TermDes"

这篇关于同步ComboBox1和ComboBox2.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！