تقييم الموضوع :
  • 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] يرجى التعديل على الكود dubai.eig 4 74 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 177 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 414 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 217 01-01-17, 10:15 PM
آخر رد: مساعدة
  اين اكتب هذا الكود anis_derna 3 140 28-12-16, 12:18 PM
آخر رد: thevirus
  تصحيح الكود الاتي CLARO 2 63 23-12-16, 02:12 PM
آخر رد: CLARO
  شرح الكود و الادوات المستخدمة anis_derna 1 88 20-12-16, 06:40 AM
آخر رد: silverlight
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  [سؤال] مشكلة في كتابة عربي مع انجليزي في نص واحد ali.alfoly 7 245 14-12-16, 03:01 PM
آخر رد: ali.alfoly
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 379 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد

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


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