16-02-19, 03:05 AM
هذا كود لتعبئة الكومبوكس CmbStudentID عند الإختيار من الكومبوكس CmbClassID
يشتغل تمام، ولكن أريد تغيير الكومبوكس CmbStudentID باداة الليست بوكس
حاولت عدة مرات ولكنني فشلت.
والمشكلة تكمن في أي حدث أضع كود الليست بوكس
يشتغل تمام، ولكن أريد تغيير الكومبوكس CmbStudentID باداة الليست بوكس
حاولت عدة مرات ولكنني فشلت.
والمشكلة تكمن في أي حدث أضع كود الليست بوكس
كود :
Public DT_Student As New DataTable
.....................................................................................................................................
Private Sub CmbStudentID_DropDown(sender As System.Object, e As System.EventArgs) Handles CmbStudentID.DropDown, CmbStudentID.DropDown
Try
CmbStudentID.DataSource = Nothing
CmbStudentID.Items.Clear()
CmbStudentID.Text = vbNullString
DT_Student.Clear()
Dim Da As New SqlDataAdapter("Select * From Student Where ClassID = " & CmbClassID.SelectedValue & " ", Con) '
If Con.State = 1 Then Con.Close()
Con.Open()
Da.Fill(DT_Student)
Con.Close()
Da = Nothing
Catch ex As Exception
Con.Close()
End Try
If DT_Student.Rows.Count <> 0 Then
With CmbStudentID
.DataSource = DT_Student
.DisplayMember = "StudentName"
.ValueMember = "StudentID"
End With
End If
End Sub
.....................................................................................................................................
Private Sub CmbClassID_DropDown(sender As System.Object, e As System.EventArgs) Handles CmbClassID.DropDown
CmbStudentID.SelectedIndex = -1
End Sub