[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





أشكر Easy 4ever لسرعة استجابة لمساعدة جميع الأعضاء بدون استثناء، وهو فعلا متميز
احببت أن أضيف طريقة أخرى باستغلال الخاصية ValueMember

PHP كود :

Public Class Form1

    '' Database:
   ''    Coutry: id, name
   ''    City:   id, name, CountryId

    Private conn As New OleDb.OleDbConnection("Provider = Microsoft.Jet.Oledb.4.0; Data Source = db1.mdb")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillCountryCombo()
    End Sub

    Sub FillCountryCombo()
        Dim sql As String = "SELECT * FROM Country"
        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.cboCountry.DataSource = dt
        Me.cboCountry.ValueMember = "id"
        Me.cboCountry.DisplayMember = "Name"
        Application.DoEvents()
    End Sub

    Private Sub cboCoutry_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCountry.SelectedValueChanged
        On Error Resume Next
        Dim sql As String = "SELECT * FROM City WHERE CountryId=" & Me.cboCountry.SelectedValue
        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.cboCity.DataSource = dt
        Me.cboCity.ValueMember = "id"
        Me.cboCity.DisplayMember = "Name"
    End Sub

End Class 


السلام عليكم ورحمة الله وبركاته