[البراء]

(20-10-14, 12:56 PM)Abu Ehab كتب : عمرها ما حصلت أنه :
أبوأيهاب يرفع كود خـــطأ ..

طيب :
عملية جراحية سريعه على الكود

PHP كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim myDA As OleDbDataAdapter
    Dim Ds As DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=db2.mdb")
        Dim Da As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM table_user", con)



        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(myDA)

        Ds = New DataSet()
        Ds.Clear()
        Da.Fill(Ds, "MyTable")
        DataGridView1.ColumnCount = 4
        For i As Integer = 0 To Ds.Tables(0).Rows.Count - 1
            DataGridView1.Rows.Add(New String() {Ds.Tables(0).Rows(i).Item(0).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(1).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(2).ToString(), _
                                                 Ds.Tables(0).Rows(i).Item(3).ToString()})
        Next
        Dim TotalCostPrice As Integer = (From rr As DataGridViewRow In DataGridView1.Rows _
                              Select CInt(rr.Cells(3).Value)).Sum()


        DataGridView1.Rows.Add(New String() {"Total", "", "", TotalCostPrice})


        For Each r As DataGridViewRow In DataGridView1.Rows

            r.HeaderCell.Value = (r.Index + 1).ToString()
            If r.Cells(0).Value = "Total" Then
                r.DefaultCellStyle.ForeColor = Color.White
                r.DefaultCellStyle.BackColor = Color.Black
            End If



        Next

    End Sub

    ' Save data from DataGridView into Database
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        Me.myDA.Update(Ds.Tables("MyTable"))
        Me.Ds.AcceptChanges()
    End Sub

  

End Class 


احنا بنعرف ابو ايهاب وقداته في البرمجة بس الكود الاول صحيح ويعمل المجموع من غير البيانات المعروضة تكون من قاعدة البيانات والكود الثاني العرض من قاعدة بيانات في dataset ومن ثم وضعهم في مصفوفة ومن ثم استخراج المجموع على كل حال تم حل المشكلة وبارك الله فيك