منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : داتا كريت فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
احبابي في الله عندي فورم وعليه داتا كريت فيو 1
وعندي داتا كريت فيو 2
كيف بقدر اجعل الداتا كريت فيو 1 هي نفسها ونفس البيانات للداتا كريت فيو 2 دون اعادة جميع الاكواد
اي اثنتان داتا كريت فيو تعرض نفس البيانات
وشكرا سلفا
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Call Sondoss_Connection()
       Dim InfoCommand As OleDbCommand = New OleDbCommand("SELECT * From TBL_STUDENT Order By STUDENT_Id", Conne_2020)
       Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter()
       InfoAdapter.SelectCommand = InfoCommand
       Dim InfoTable As DataTable = New DataTable()
       InfoAdapter.Fill(InfoTable)

       DataGridView1.DataSource = InfoTable
       DataGridView2.DataSource = InfoTable
       DataGridView3.DataSource = InfoTable
       DataGridView4.DataSource = InfoTable

   End Sub
بارك الله فيك أخي عبد العزيز
(01-07-20, 03:04 AM)عبد العزيز البسكري كتب : [ -> ]
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Call Sondoss_Connection()
       Dim InfoCommand As OleDbCommand = New OleDbCommand("SELECT * From TBL_STUDENT Order By STUDENT_Id", Conne_2020)
       Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter()
       InfoAdapter.SelectCommand = InfoCommand
       Dim InfoTable As DataTable = New DataTable()
       InfoAdapter.Fill(InfoTable)

       DataGridView1.DataSource = InfoTable
       DataGridView2.DataSource = InfoTable
       DataGridView3.DataSource = InfoTable
       DataGridView4.DataSource = InfoTable

   End Sub
شكرا اخي الكريم جازاك الله خيرا