تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نقل الداتا الموجودة في داتا جريد فيو الي داتا جريد فيو أخري
#1
السلام عليكم الاخوة الاعزاء

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

بعد الضغط علي مفتاح Transefer

بحيث مثلا لو عملت فلتر في الداتا جريد فيو رقم واحد

ثم ضغطت علي  مفتاح  Transefer

تنقل فقط المعلومات  الموجود في الداتا جريد فيو رقم واحد  بعد الفلتر

برجاء فحص المرفقات

مع جزيل الشكر


الملفات المرفقة صورة/صور
   

.rar   ERC_2G.rar (الحجم : 119.32 ك ب / التحميلات : 79)
الرد }}}
تم الشكر بواسطة:
#2
كود :
Private Sub Gridv1_to_gricv()

       DataGridView1.CancelEdit()
       DataGridView1.Columns.Clear()
       DataGridView1.DataSource = Nothing

       Dim sourceGrid As DataGridView = Me.DataGrid1
       Dim targetGrid As DataGridView = Me.DataGridView1

       'Copy all rows and cells.

       Dim targetRows = New List(Of DataGridViewRow)

       For Each sourceRow As DataGridViewRow In sourceGrid.Rows

           If (Not sourceRow.IsNewRow) Then

               Dim targetRow = CType(sourceRow.Clone(), DataGridViewRow)

               'The Clone method do not copy the cell values so we must do this manually.
               'See: https://msdn.microsoft.com/en-us/library/system.windows.forms.datagridviewrow.clone(v=vs.110).aspx

               For Each cell As DataGridViewCell In sourceRow.Cells
                   targetRow.Cells(cell.ColumnIndex).Value = cell.Value
               Next

               targetRows.Add(targetRow)

           End If

       Next

       'Clear target columns and then clone all source columns.

       targetGrid.Columns.Clear()

       For Each column As DataGridViewColumn In sourceGrid.Columns
           targetGrid.Columns.Add(CType(column.Clone(), DataGridViewColumn))
       Next

       'It's recommended to use the AddRange method (if available)
       'when adding multiple items to a collection.

       targetGrid.Rows.AddRange(targetRows.ToArray())
   End Sub
الرد }}}
تم الشكر بواسطة: ﻣﺒﺘﺪﺉ
#3
(25-11-17, 01:43 AM)Rabeea Qbaha كتب :
كود :
Private Sub Gridv1_to_gricv()

       DataGridView1.CancelEdit()
       DataGridView1.Columns.Clear()
       DataGridView1.DataSource = Nothing

       Dim sourceGrid As DataGridView = Me.DataGrid1
       Dim targetGrid As DataGridView = Me.DataGridView1

       'Copy all rows and cells.

       Dim targetRows = New List(Of DataGridViewRow)

       For Each sourceRow As DataGridViewRow In sourceGrid.Rows

           If (Not sourceRow.IsNewRow) Then

               Dim targetRow = CType(sourceRow.Clone(), DataGridViewRow)

               'The Clone method do not copy the cell values so we must do this manually.
               'See: https://msdn.microsoft.com/en-us/library/system.windows.forms.datagridviewrow.clone(v=vs.110).aspx

               For Each cell As DataGridViewCell In sourceRow.Cells
                   targetRow.Cells(cell.ColumnIndex).Value = cell.Value
               Next

               targetRows.Add(targetRow)

           End If

       Next

       'Clear target columns and then clone all source columns.

       targetGrid.Columns.Clear()

       For Each column As DataGridViewColumn In sourceGrid.Columns
           targetGrid.Columns.Add(CType(column.Clone(), DataGridViewColumn))
       Next

       'It's recommended to use the AddRange method (if available)
       'when adding multiple items to a collection.

       targetGrid.Rows.AddRange(targetRows.ToArray())
   End Sub


السلام عليكم

شكرا جزيلا اخي الكريم علي المساعدة

وضعت الكود في المشروع

لكن يظهر معي خطأ كما بالمرفق

مع جزيل الشكر


الملفات المرفقة صورة/صور
   

.rar   ERC_2G.rar (الحجم : 121.97 ك ب / التحميلات : 128)
الرد }}}
تم الشكر بواسطة:
#4
قمت بتحميل الملف والتعديل على الكود ليناسبك 

فقط استدعي المثود Gridv1_to_gricv()  في زر ال Transfere 


كود :
Private Sub Gridv1_to_gricv()

       DataGridView2.CancelEdit()
       DataGridView2.Columns.Clear()
       DataGridView2.DataSource = Nothing

       Dim sourceGrid As DataGridView = Me.DataGridView1
       Dim targetGrid As DataGridView = Me.DataGridView2

       'Copy all rows and cells.

       Dim targetRows = New List(Of DataGridViewRow)

       For Each sourceRow As DataGridViewRow In sourceGrid.Rows

           If (Not sourceRow.IsNewRow) Then

               Dim targetRow = CType(sourceRow.Clone(), DataGridViewRow)

               'The Clone method do not copy the cell values so we must do this manually.
               'See: https://msdn.microsoft.com/en-us/library/system.windows.forms.datagridviewrow.clone(v=vs.110).aspx

               For Each cell As DataGridViewCell In sourceRow.Cells
                   targetRow.Cells(cell.ColumnIndex).Value = cell.Value
               Next

               targetRows.Add(targetRow)

           End If

       Next

       'Clear target columns and then clone all source columns.

       targetGrid.Columns.Clear()

       For Each column As DataGridViewColumn In sourceGrid.Columns
           targetGrid.Columns.Add(CType(column.Clone(), DataGridViewColumn))
       Next

       'It's recommended to use the AddRange method (if available)
       'when adding multiple items to a collection.

       targetGrid.Rows.AddRange(targetRows.ToArray())
   End Sub
الرد }}}
تم الشكر بواسطة: ﻣﺒﺘﺪﺉ
#5
(25-11-17, 02:20 AM)Rabeea Qbaha كتب : قمت بتحميل الملف والتعديل على الكود ليناسبك 

فقط استدعي المثود Gridv1_to_gricv()  في زر ال Transfere 


كود :
Private Sub Gridv1_to_gricv()

       DataGridView2.CancelEdit()
       DataGridView2.Columns.Clear()
       DataGridView2.DataSource = Nothing

       Dim sourceGrid As DataGridView = Me.DataGridView1
       Dim targetGrid As DataGridView = Me.DataGridView2

       'Copy all rows and cells.

       Dim targetRows = New List(Of DataGridViewRow)

       For Each sourceRow As DataGridViewRow In sourceGrid.Rows

           If (Not sourceRow.IsNewRow) Then

               Dim targetRow = CType(sourceRow.Clone(), DataGridViewRow)

               'The Clone method do not copy the cell values so we must do this manually.
               'See: https://msdn.microsoft.com/en-us/library/system.windows.forms.datagridviewrow.clone(v=vs.110).aspx

               For Each cell As DataGridViewCell In sourceRow.Cells
                   targetRow.Cells(cell.ColumnIndex).Value = cell.Value
               Next

               targetRows.Add(targetRow)

           End If

       Next

       'Clear target columns and then clone all source columns.

       targetGrid.Columns.Clear()

       For Each column As DataGridViewColumn In sourceGrid.Columns
           targetGrid.Columns.Add(CType(column.Clone(), DataGridViewColumn))
       Next

       'It's recommended to use the AddRange method (if available)
       'when adding multiple items to a collection.

       targetGrid.Rows.AddRange(targetRows.ToArray())
   End Sub

تمام اخي الحبيب

الكود تمام التمام

ربنا يبارك فيك يارب مع جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#6
طيب يا اخى
مثالك هذا ممتاز جدا ولكن انا تواجهنى مشكلة كبيره قوى لو انا عايز انقل بيانات بعض أعمده من داتا جريد فيو الى داتا جريد فيو تانيه ولكن مرتبطه بداتا ست او داتا باوند كيف تكون الطريقة ساعدنى ارجوك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] ستايل داتا جرد فيو h2551996 10 343 17-01-24, 02:52 PM
آخر رد: aljzazy
Heart [C#.NET] حول بطئ عملية نقل البينات الكثيرة من أكسس إلى داتا غريد فيو بلال بلال 11 710 15-12-23, 07:47 AM
آخر رد: foad8920
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني

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


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