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

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

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


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

كود :
       DataGridView1.Rows.Add(2, "Sayed", "01112345678", 4000, "1 , 1 st., city, country")
(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 ده تعويض عن ايه
(19-08-20, 06:20 PM)خالد كامل1 كتب : [ -> ]احسنت اخى بارك الله لك فى عمرك لكن رقم 2 ده تعويض عن ايه

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

رقم 2 ده بيمثل في مثالي انا ال ID بتاع الصف اللي هضيفه
(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 


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

PHP كود :
   Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        For i 
As Integer 1 To DataGridView1.Rows.Count 1
            DataGridView2
.Rows.Add(DataGridView1.Rows(i).Cells(0).ValueDataGridView1.Rows(i).Cells(1).Value)
 
       Next
    End Sub 

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

PHP كود :
   Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles 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).ValueDataGridView1.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
(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  لها وفي هذه الحالة لا يمكن اضافة صفوف لها برمجيا
ضف الصف الى الداتا تابل فتنجح الاضافة .
(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