كيف يمكن تعبئة قائمة CompoBox بالبيانات

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DB.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim ds As New DataSet

Dim adpt As OleDbDataAdapter

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

adpt = New OleDbDataAdapter("select * from sofoof", Conn)

adpt.Fill(ds, "Classes")

adpt = New OleDbDataAdapter("select * from student", Conn)

adpt.Fill(ds, "Students")

cmbClasses.DataSource = ds.Tables("Classes")

cmbClasses.DisplayMember = "safname"

Bind()

End Sub

Private Sub cmbClasses_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbClasses.SelectedIndexChanged

Bind()

End Sub

Sub Bind()

Dim classNo As Integer = Convert.ToInt32(ds.Tables("Classes").Rows(cmbClasses.SelectedIndex)("alsaf"))

Dim students As DataView = ds.Tables("Students").DefaultView

students.RowFilter = "alsaf=" & classNo

cmbStudents.DataSource = students

cmbStudents.DisplayMember = "name1"

End Sub

End Class

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DB.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim ds As New DataSet

Dim adpt As OleDbDataAdapter

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

adpt = New OleDbDataAdapter("select * from sofoof", Conn)

adpt.Fill(ds, "Classes")

adpt = New OleDbDataAdapter("select * from student", Conn)

adpt.Fill(ds, "Students")

ds.Tables("Students").Columns.Add("fullName")

For Each row As DataRow In ds.Tables("Students").Rows

row("fullName") = String.Format("{0} {1} {2} {3}", row("name1"), row("name2"), row("name3"), row("name4"))

Next

cmbClasses.DataSource = ds.Tables("Classes")

cmbClasses.DisplayMember = "safname"

Bind()

End Sub

Private Sub cmbClasses_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbClasses.SelectedIndexChanged

Bind()

End Sub

Sub Bind()

Dim classNo As Integer = Convert.ToInt32(ds.Tables("Classes").Rows(cmbClasses.SelectedIndex)("alsaf"))

Dim students As DataView = ds.Tables("Students").DefaultView

students.RowFilter = "alsaf=" & classNo

cmbStudents.DataSource = students

cmbStudents.DisplayMember = "fullName"

lblNo.Text = cmbStudents.Text

End Sub

Private Sub cmbStudents_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStudents.SelectedIndexChanged

lblNo.Text = cmbStudents.Text

End Sub

End Class

Private Sub cmbStudents_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStudents.SelectedIndexChanged

lblNo.Text = cmbStudents.Text

End Sub