منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بخصوص نقل بيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص نقل بيانات (/showthread.php?tid=29506)

سؤال بخصوص نقل بيانات - faysal13_13@hotmail.com - 27-04-19

كيفيه نقل البيانات من داتا جرد فيو الي داتا جريد فيو عند الضغط علي button يتم نسخ سطر محد الي الدات جريد فيو الاخره علما بان الداتا جريد فيو الثانيه باوند ولا يوجد اي ربط بين الجدولين الجدول الثاني يقراء من قاعده البيانات 

المشكله لما باجي بكتب الكود بتظهر الرساله ديت 
Input string was not in a correct format.Couldn't store <a> in cost Column.  Expected type is Decimal.


كود :
Imports System.Data.SqlClient

Public Class test3
   Dim DTable1 As New DataTable
   Dim DTable2 As New DataTable
   Private Sub test3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim da As New SqlDataAdapter
       DTable1.Clear()
       da = New SqlDataAdapter("select cCDOE,cNAME from ITEMS", Con)
       da.Fill(DTable1)
       DataGridView1.DataSource = DTable1
       'DataGridView1.DataSource = DTable1.Clone


       Dim da1 As New SqlDataAdapter
       DTable2.Clear()
       da1 = New SqlDataAdapter("select qty,cost from ware", Con)
       da1.Fill(DTable2)
       DataGridView2.DataSource = DTable2
       'DataGridView2.DataSource = DTable2.Clone

   End Sub

 
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

For Each dr In Me.DataGridView1.SelectedRows
            Dim drv = TryCast(dr, DataGridViewRow)
            DTable2.Rows.Add(CType(drv.DataBoundItem, DataRowView).Row.ItemArray)
        Next
 
   End Sub
End Class









[صورة مرفقة: file]

RE: سؤال بخصوص نقل بيانات - saoud2 - 27-04-19

عزيزي

حقول DTable1 تختلف عن DTable2  Big Grin

عليك باضافة السطر الى DTable2 بطريقة مختلفة

تفضل التعديل على جزء من الكود مع تعديل رقم الأعمدة (4,2) كما هو مطابق لديك Smile
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       For Each dr As DataGridViewRow In Me.DataGridView1.SelectedRows
           Dim nr As DataRow = DTable2.NewRow
           nr.Item("qty") = Val(dr.Cells(2).Value)
           nr.Item("cost") = Val(dr.Cells(4).Value)
           DTable2.Rows.Add(nr)
       Next

   End Sub
المشكلة التي في الصورة الثانية ليس ضمن الكود  Smile
ولكنها تدل على عدم امكانية الاضافة مباشرة الى DataGridView إذا كان مرتبط بالبيانات عن طريق DataSource Big Grin
وإنما الإضافة تتم على DTable2 كما فعلت أنت في الكود المرفق وقمت أنا بتعديله لك  Smile