[makky]

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

[vb2010]

جرب 

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

     

[Rabeea Qbaha]

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

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

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

PHP كود :

  Dim i As Integer = DataGrid1.CurrentRow.Index
         
  Dim eid As String = DataGrid1.Item(1, i).Value.ToString
   Dim name As String = DataGrid1.Item(2, i).Value.ToString 


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

PHP كود :

Dim id As Integer = DataGrid1.SelectedRows(0).Cells(1).Value

        If e.ColumnIndex = 0 Then
 delete where id =1 
endif 


وهكذا

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