17-03-13, 01:00 PM
السلام عليكم ورحمة الله وبركاته
أشكر 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
السلام عليكم ورحمة الله وبركاته
