المشكلة انا عندى فى قاعدة البيانات اتنين Fields واحد بتاع اسماء المحافظات والتانى باسماء المدن
يعنى لما اختار القاهرة المفروض يظهر فى الComcbox التانى العباسية- الزمالك ....
بيحصل بقى حاجة غريبة جدا اول ما اختار القاهرة بيجيب حاجاات فاضية فى الCombbox الثانى ومعاه العباسية وكل الاختيارات الصح
وكمان لو اختارت حاجة تانية مثلا اسيوط يظهر تحت الاختيار الاول يعنى تحت العباسية
ومش عارف اعمل فيها ايه؟؟
الكود اهو لو حد يقدر يساعدنى يبقى جزاه الله كل خير
Public Class Form1
Dim StrConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\Test_DB.mdb"
Dim myConnection As New OleDbConnection(StrConnection)
Dim ZoneQuery As String = ("Select Distinct Zone_name as Sample")
Dim myCommand As New OleDbCommand
Dim myAdapter As OleDbDataAdapter
Dim MyDataSet As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myConnection.Open()
myAdapter = New OleDbDataAdapter("Select distinct zone_name from sample", myConnection)
myAdapter.Fill(MyDataSet)
myConnection.Close()
cmbArea.Items.Clear()
cmbArea.DataSource = MyDataSet.Tables(0)
cmbArea.DisplayMember = "zone_name"
cmbArea.ValueMember = "zone_name"
cmbArea.SelectedIndex = -1
End Sub
Private Sub cmbArea_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbArea.Leave
If cmbArea.SelectedIndex > -1 Then
myConnection.Open()
myAdapter = New OleDbDataAdapter("Select block_code from sample where zone_name='" + cmbArea.SelectedValue.ToString() + "'", myConnection)
myAdapter.Fill(MyDataSet)
myConnection.Close()
cmbArea.Items.Clear()
cmbBlock.DataSource = MyDataSet.Tables(0)
cmbBlock.DisplayMember = "block_Code"
cmbBlock.ValueMember = "block_Code"
'cmbBlock.SelectedIndex = -1
End If