تعلم تعبئة الكمبو بطريقة سهلة ووفر كتابة الكود

كود :

[align=left]



Public Function LoadMyCombBoxs(ByVal Ctr As Control, ByVal cmb As ComboBox, ByVal IDFild As String, ByVal Displayfild As String, ByVal TableName As String, ByVal Condiation As String) As DataTable



        On Error GoTo ShowErr





        If CN.State = ConnectionState.Closed Then CN.Open()



        Dim cmdCmb As New SqlCommand("Select " & IDFild & "," & Displayfild & " From " & TableName & " WHERE " & Condiation & "", CN)

        Dim DaCmb As New SqlDataAdapter(cmdCmb)

        Dim DTCmb As New DataTable

        DTCmb.Clear()

        DaCmb.Fill(DTCmb)

 CN.Close

        If DTCmb.Rows.Count > 0 Then



            cmb.DataSource = DTCmb.DefaultView

            cmb.DisplayMember = DTCmb.Columns(1).ColumnName

            cmb.ValueMember = IDFild

            cmb.SelectedIndex = -1

        End If

        Return DTCmb

ShowErr:



 MsgBox("Error Occurred. Please Contact IT Department." & Err.Description, vbInformation, gMoudleName)



    End Function

[/align]

كود :

LoadMyCombBoxs(Me, Me.CmbCategory, "ID", "Name", "ItemCategory", "deleted=0")