انتخاب مرحله به مرحله با چند كامبو باكس

[omidquest]

سلام
من 2 تا فايل دارم
فايل اول بانك اسامي كشور ها مشتمل بر فيلد 1- كد كشور 2 - اسم كشور
وفايل دوم بان اسامي استانها مشتمل بر 1- كد كشور مربوطه 2-كد استان 3- اسم استان

حالا ميخوام تو برنامم 2 تا كامبو باكس بزارم تو اولي اسم كشور ها باشه و توي دومي با انتخاب كردن اسم كشور توي كامبو باكس اول اسامي مربوط به همون كشور با توجه به كد كشور كه توي فايل دوم هم هست نشون داده بشه
ممنون ميشم كمكم كنيد!

[omidquest]

دوستان جوابي ندارند؟؟

[mgh64120]

سلام دوست عزيز
Country = كشور



Dim Connection As New SqlConnection('رشته اتصال')

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
Dim DA As New SqlDataAdapter("Select CoutryNo, CountryName From tblCountry", Connection)
Dim DT As New DataTable
DA.Fill(DT)
cboCountry.DataSource = DT
cboCountry.DisplayMember = "CountryName"
cboCountry.ValueMember = "GKalaNo"
If cboCountry.Items.Count > 0 Then cboCountry.SelectedIndex = 0
'
End Sub

و


State = استان
Private Sub cboState_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboState.GotFocus
'
Dim DA As New SqlDataAdapter("Select StateNo, StateName From tblState Where CountryNo = " & cboCountry.SelectedValue , Connection)
Dim DT As New DataTable
DA.Fill(DT)
cboState.DataSource = DT
cboState.DisplayMember = "StateName"
cboState.ValueMember = "StateNo"
If cboState.Items.Count > 0 Then cboState.SelectedIndex = 0
'
End Sub