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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 80 أمس, 05:32 PM
آخر رد: محمود صالح
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 31 21-09-17, 06:34 PM
آخر رد: D-Z
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 82 20-09-17, 04:00 PM
آخر رد: alsouf
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 805 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 115 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 197 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 56 11-09-17, 12:58 PM
آخر رد: 0theghost0
  [VB.NET] تصحيح الكود لو سمحتم 0theghost0 4 127 30-08-17, 12:06 PM
آخر رد: 0theghost0
  [سؤال] مشكلة مغلبانى جدا من فترة مع هذا الكود Do While ابو روضة 14 452 19-08-17, 01:31 AM
آخر رد: ابو روضة
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي e-coder 1 88 09-08-17, 06:25 AM
آخر رد: e-coder

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


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