[سؤال] مساعدة في فلتر Combobox - نسخة قابلة للطباعة

كود :

Dim con As New SqlConnection

    Dim comm As SqlCommand = New SqlCommand

    Dim reader As SqlDataReader

    Dim dt As New DataTable

    Dim ds As New DataSet

    Dim da As New SqlDataAdapter

    Private Sub dailyreportentryform_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.TextBox8.Text = loginform.TextBox3.Text

        Me.TextBox9.Text = loginform.TextBox1.Text

        TextBox10.Text = Format(Date.Now, "dd/MM/yyyy")

        DateTimePicker1.Format = DateTimePickerFormat.Custom

        DateTimePicker1.CustomFormat = "dd/MM/yyyy"

        con = New SqlConnection

        con.ConnectionString = "server=.\sqlexpress; database= Reporting_System; integrated security=true"

        con.Open()

        fillcombo1()

        fillcombo2()

        MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Information)

    End Sub



'لتعبئة الكمبوبوكس الأول

Private Sub fillcombo1()

        ds = New DataSet

        da = New SqlDataAdapter(" select * from Countries", con)

        da.Fill(ds, "Countries")

        ComboBox1.DataSource = ds.Tables("Countries")

        ComboBox1.ValueMember = "CountryID"

        ComboBox1.DisplayMember = "CountryName"

    End Sub



'لتعبئة الكمبوبوكس الثاني

    Private Sub fillcombo2()

        ds = New DataSet

        da = New SqlDataAdapter(" select * from Cities", con)

        da.Fill(ds, "Cities")

        ComboBox2.DataSource = ds.Tables("Cities")

        ComboBox2.ValueMember = "CityID"

        ComboBox2.DisplayMember = "CityName"

    End Sub



'لفلترت الكمبوبوكس الثاني بحيث تظهر المدن بحسب الدوله التي اختارتها في الكمبوبوكس الأول

    da = New SqlDataAdapter("select * From Cities", con)

        ds = New DataSet

        da.Fill(ds, "Countrie")

        ComboBox2.DataSource = ds.Tables("Cities")

        ComboBox2.DisplayMember = "CityName"



    End Sub

PHP كود :

   Protected Sub Combobox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.SelectedIndexChanged
        da = New SqlDataAdapter("select * From Cities Where CountryID=" val(Combobox1.SelectedValue) , con) 
        ds = New DataSet
        da.Fill(ds, "Countrie")
        ComboBox2.DataSource = ds.Tables("Cities")
        ComboBox2.DisplayMember = "CityName"
    End Sub

PHP كود :

Protected Sub Combobox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.SelectedIndexChanged
        da = New SqlDataAdapter("select * From Cities Where CountryID=" & val(Combobox1.SelectedValue) , con) 
        ds = New DataSet
        da.Fill(ds, "Countrie")
        ComboBox2.DataSource = ds.Tables("Cities")
        ComboBox2.DisplayMember = "CityName"
    End Sub