طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود

طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - نسخة قابلة للطباعة

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

طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - خالد كامل1 - 19-08-20

السلام عليكم احبتى اسعد الله فجركم
عندى 2 داتا جريد فيو فى فورم الاولى خاصه بمخزن والصانيه خاصه بمحزن ولكنهم فى جدول واحد
اريد نقل جزء من ماده فى الجدول موجوده فى الداتا جريد فيو 1 الى داتا جريد فيو 2 ببيانات الماده الموجوده فى الدتا جريد فيو 1
ولكم منى الشكر
والسؤال بصفه عامه
كيفيه اضافه صف الة داتا جريد فيو برمجيا (بالكود)

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - أحمد النجار - 19-08-20

وعليكم السلام ورحمة الله وبركاته
باختصار كيفية اضافة صف جديد للداتا جريد كالتالي

PHP كود :
Dim x As integer = datagridview2.rows.add
 datagridview2.rows(i).cells(0).value =  datagridview1.rows(i).cells(0).value 

وهكذا حتى الانتهاء من جميع الاعمدة

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - Anas Mahmoud - 19-08-20

لإضافة صف جديد للداتا جريد استخدم DataGridView1.Rows.Add وبداخلها اضف ماتريده بحسب عدد الاعمدة :

كود :
       DataGridView1.Rows.Add(2, "Sayed", "01112345678", 4000, "1 , 1 st., city, country")

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - خالد كامل1 - 19-08-20

(19-08-20, 11:53 AM)أحمد النجار كتب : وعليكم السلام ورحمة الله وبركاته
باختصار كيفية اضافة صف جديد للداتا جريد كالتالي

PHP كود :
Dim x As integer = datagridview2.rows.add datagridview2.rows(i).cells(0).value = datagridview1.rows(i).cells(0).value

وهكذا حتى الانتهاء من جميع الاعمدة

بارك الله فيك اخى الكريم

(19-08-20, 01:33 PM)Anas Mahmoud كتب : لإضافة صف جديد للداتا جريد استخدم DataGridView1.Rows.Add وبداخلها اضف ماتريده بحسب عدد الاعمدة :

كود :
DataGridView1.Rows.Add(2, "Sayed", "01112345678", 4000, "1 , 1 st., city, country")

احسنت اخى بارك الله لك فى عمرك لكن رقم 2 ده تعويض عن ايه

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - Anas Mahmoud - 19-08-20

(19-08-20, 06:20 PM)خالد كامل1 كتب : احسنت اخى بارك الله لك فى عمرك لكن رقم 2 ده تعويض عن ايه

البيانات اللي انا كاتبها دي وهمية حط بيانات الصف مكانها

رقم 2 ده بيمثل في مثالي انا ال ID بتاع الصف اللي هضيفه

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - خالد كامل1 - 20-08-20

(19-08-20, 11:53 AM)أحمد النجار كتب : وعليكم السلام ورحمة الله وبركاته
باختصار كيفية اضافة صف جديد للداتا جريد كالتالي

PHP كود :
Dim x As integer = datagridview2.rows.add datagridview2.rows(i).cells(0).value = datagridview1.rows(i).cells(0).value

وهكذا حتى الانتهاء من جميع الاعمدة

انظر الى هذا الخطا اخى

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - asemshahen5 - 20-08-20

نقل كل الصفوف :

PHP كود :
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For i As Integer = 1 To DataGridView1.Rows.Count - 1
            DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(0).Value, DataGridView1.Rows(i).Cells(1).Value)
        Next
    End Sub 

نقل الصفوف المحددة في عامود تشك بوكس رقم 2 :

PHP كود :
   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        For i As Integer = 1 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(2).Value = True Then
                DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(0).Value, DataGridView1.Rows(i).Cells(1).Value)
            End If
        Next
    End Sub 

1- Column1 Type TextBox
2- Column2 Type TextBox
3- Column3 Type CheckBox

اعمدة الجدول الثاني :
1- Column1 Type TextBox
2- Column2 Type TextBox

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - أحمد النجار - 20-08-20

(20-08-20, 03:47 AM)خالد كامل1 كتب :
(19-08-20, 11:53 AM)أحمد النجار كتب : وعليكم السلام ورحمة الله وبركاته
باختصار كيفية اضافة صف جديد للداتا جريد كالتالي

PHP كود :
Dim x As integer = datagridview2.rows.add datagridview2.rows(i).cells(0).value = datagridview1.rows(i).cells(0).value

وهكذا حتى الانتهاء من جميع الاعمدة
انظر الى هذا الخطا اخى

هذا الخطأ معناه أن الداتا جريد تم عمل DataSource لها وفي هذه الحالة لا يمكن اضافة صفوف لها برمجيا

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - asemshahen5 - 20-08-20

ضف الصف الى الداتا تابل فتنجح الاضافة .

RE: طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود - خالد كامل1 - 21-08-20

(20-08-20, 01:27 PM)asemshahen5 كتب : ضف الصف الى الداتا تابل فتنجح الاضافة .

كما ترى ضفته نقل لى كل الجدول وليس الصف

كود :
 Dim d As Integer

            Dim da_ As New OleDbDataAdapter

            da_ = New OleDbDataAdapter("select * from product where  pro_id=" & DataGridView1.CurrentRow.Cells(0).Value & "", con)

            'da_.Parameters.Add(New OleDb.OleDbParameter("@pro_id", OleDb.OleDbType.Integer)).Value = d

            Dim da_set As New DataSet

            da_set = New DataSet

                da_.Fill(da_set)

            Dim dt_ = da_set.Tables(0)

            Dim dr_ = dt_.NewRow

            dr_!pro_id = d

            dr_!pro_code = DataGridView1.CurrentRow.Cells(1).Value

            dr_!pro_name = DataGridView1.CurrentRow.Cells(2).Value

            dr_!d1 = d1.Value

            dr_!pro_buy = DataGridView1.CurrentRow.Cells(4).Value

            dr_!pro_sales = DataGridView1.CurrentRow.Cells(5).Value

            dr_!unit = DataGridView1.CurrentRow.Cells(6).Value

            dr_!pro_qty = qty

            dr_!makh_code = makh_code2.Text

            dr_!makh_name = makh_name2.Text

            dt_.Rows.Add(dr_)

            Dim save__ As New OleDb.OleDbCommandBuilder(da_)

            da_.Update(dt_)

            End If

        Next