تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود
#1
السلام عليكم احبتى اسعد الله فجركم
عندى 2 داتا جريد فيو فى فورم الاولى خاصه بمخزن والصانيه خاصه بمحزن ولكنهم فى جدول واحد
اريد نقل جزء من ماده فى الجدول موجوده فى الداتا جريد فيو 1 الى داتا جريد فيو 2 ببيانات الماده الموجوده فى الدتا جريد فيو 1
ولكم منى الشكر
والسؤال بصفه عامه
كيفيه اضافه صف الة داتا جريد فيو برمجيا (بالكود)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
باختصار كيفية اضافة صف جديد للداتا جريد كالتالي

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


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

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

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

رقم 2 ده بيمثل في مثالي انا ال ID بتاع الصف اللي هضيفه
الرد }}}
تم الشكر بواسطة: خالد كامل1 , ابراهيم ايبو
#6
(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 


وهكذا حتى الانتهاء من جميع الاعمدة
انظر الى هذا الخطا اخى 
[صورة مرفقة: p_1692uekud1.jpg]
الرد }}}
تم الشكر بواسطة:
#7
نقل كل الصفوف :

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
الرد }}}
#8
(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 


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

هذا الخطأ معناه أن الداتا جريد تم عمل DataSource  لها وفي هذه الحالة لا يمكن اضافة صفوف لها برمجيا
الرد }}}
تم الشكر بواسطة:
#9
ضف الصف الى الداتا تابل فتنجح الاضافة .
الرد }}}
تم الشكر بواسطة: خالد كامل1 , بلدي
#10
(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
الرد }}}
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: