تقييم الموضوع :
  • 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")

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 70 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 50 16-02-17, 11:57 AM
آخر رد: المتألق9
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 316 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 46 12-02-17, 08:06 PM
آخر رد: مساعدة
  مشكلة صغيرة فى كتابة item الى xml Mohamed20 2 74 11-02-17, 01:27 AM
آخر رد: Mohamed20
  [سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت youssef1 10 189 11-02-17, 12:56 AM
آخر رد: hassan
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 55 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 92 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 160 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 66 22-01-17, 02:27 PM
آخر رد: abo_alaa315

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


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