[محمد العامر]

اسلام عليكم ورحمة الله وبركاته
اسعد الله أوقاتكم بكل خير
مرفق لكم مثال لطريقة عمل صب عام DevExpress لأداة GridControl يمكن استدعائة على مستوى المشروع و أضافة اسم الجدول وأسم الاداة فقط
بسم بالله نبدأ:
نقوم بعمل مشروع ونضيف فيه Module ونضع بداخلة الكود التالي:

كود :

Imports System.Data.SqlClient

Module Module1
   Public ConStr As String = "Data Source=.\SQLEXPRESS;Initial Catalog = Test_System;integrated security=true"
   Public Con As New SqlConnection(ConStr)
   'TBLName اسم الجدول المراد عرض بياناته في GridView
   'Devdgv اسم GridView والذي سيتم عرض بيانات الجدول بداخله
   Public Sub LoadAllDevE(ByVal TBLName As String, ByVal Devdgv As DevExpress.XtraGrid.Views.Grid.GridView)
       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("select * from " & TBLName & "", Con)
       da.Fill(dt)
       Devdgv.GridControl.DataSource = dt
   End Sub
End Module

   
في حدث تحميل الفورم نقوم باستدعاء الصب التالي

كود :

       LoadAllDevE("TBLUSER", GridViewUser)

   
   

بالتوفيق للجميع