تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعلم تعبئة الكمبو بطريقة سهلة ووفر كتابة الكود
#1
السلام عليكم اخواني الكرام

اليوم نوضح كيفية تعبئة الكمبو بوكس او اليست مرة واحدة بدل من كتابة الاكواد اكثر ن مرة


نضف 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")

تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة الكمبوبوكس في الداتاغريد فيو .. حلا ابوحامضة 7 249 06-12-16, 11:32 AM
آخر رد: superwoofer
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah
  حل مشكلة الكود الاتي - سهل- CLARO 3 85 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,367 30-11-16, 10:16 PM
آخر رد: omferas
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 65 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 99 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 100 10-11-16, 06:25 PM
آخر رد: أبو عمر
Star [VB.NET] واجهتني مشاكل فى التنزيل من اليوتيوب حبيت اعملها بطريقة تانية لكنها لم تنجح بشكل كامل elhon.tec 0 45 07-11-16, 01:41 AM
آخر رد: elhon.tec
  كيف اضيف هذا الكود في module nabil.1710 6 127 01-11-16, 03:23 PM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم