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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27738)



الاضافة والتعديل والحذف من خلال الداتا جريد فيوا - makky - 30-11-18

اصدقائ الاعزاء اسئل عن طريقة الاضافه والتعديل والحذف من خلال الداتا جريد نفسها


RE: الاضافة والتعديل والحذف من خلال الداتا جريد فيوا - vb2010 - 30-11-18

جرب 
DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl", con)
        DA.Fill(DT)
        For I = 0 To dgv.Rows.Count - 2
            Dim DR1 = DT.NewRow
            If dgv.CurrentRow.Cells(10).Value = Nothing Then
                dgv.CurrentRow.Cells(10).Value = 0

            End If
            DR1!BUYCODE = TXTID.Text
            DR1!Code = dgv.Rows(I).Cells(0).Value
            DR1!Name = dgv.Rows(I).Cells(1).Value
            DR1!Price = Val(dgv.Rows(I).Cells(2).Value)
            DR1!Unit = dgv.Rows(I).Cells(3).Value
            DR1!Quant = dgv.Rows(I).Cells(4).Value
            DR1!Cost_Unit = dgv.Rows(I).Cells(5).Value
            DR1!Total = dgv.Rows(I).Cells(6).Value
            DR1!Tax = dgv.Rows(I).Cells(7).Value
            DR1!TaxVal = dgv.Rows(I).Cells(8).Value
            DR1!DS = dgv.Rows(I).Cells(9).Value
            DR1!DSVAL = dgv.Rows(I).Cells(10).Value

            DR1!Stock = dgv.Rows(I).Cells(11).Value
            DR1!QTY_IN = dgv.Rows(I).Cells(12).Value
            DR1!RowNum = TextBox5.Text
            DT.Rows.Add(DR1)
            Dim CMD_ As New OleDb.OleDbCommandBuilder(DA)
            DA.Update(DT)
            
        Next
     



RE: الاضافة والتعديل والحذف من خلال الداتا جريد فيوا - Rabeea Qbaha - 30-11-18

نفس الشئ لكن ستتعامل مع البيانات من ال gv 

بالتعديل ستتعامل مع ال GV عند الانتهاء من تعديل السطر CellEndEdit وتضع كود التخديث فية 

تستطيع جلب القيم كالاتي :

PHP كود :
  Dim i As Integer DataGrid1.CurrentRow.Index
         
  Dim eid 
As String DataGrid1.Item(1i).Value.ToString
   Dim name 
As String DataGrid1.Item(2i).Value.ToString 


و للحذف ستتعامل مع ال DataGrid1_CellContentClick وتقوم بادراج button والنفرض في العمود الاول 
و عند الضغط عل تشغل كود الحذف 

PHP كود :
Dim id As Integer DataGrid1.SelectedRows(0).Cells(1).Value

        If e
.ColumnIndex 0 Then
 delete where id 
=
endif 

وهكذا

مع اني لا انصح لانها تحتاج الكثير من الوقت من تركيز و فحص البيانات المدخله الخ ...