14-03-13, 09:35 PM
السلام عليكم اخواني الكرام
اليوم نوضح كيفية تعبئة الكمبو بوكس او اليست مرة واحدة بدل من كتابة الاكواد اكثر ن مرة
نضف Module
hالشرح
فى حدث تحميل الفورم
تحياتي
اليوم نوضح كيفية تعبئة الكمبو بوكس او اليست مرة واحدة بدل من كتابة الاكواد اكثر ن مرة
نضف Module
كود :
[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]
hالشرح
فى حدث تحميل الفورم
كود :
LoadMyCombBoxs(Me, Me.CmbCategory, "ID", "Name", "ItemCategory", "deleted=0")
تحياتي