[asemshahen5]

كود :

Dim dt As New DataTable
   Private Sub net2()
       Dim da As New OleDbDataAdapter("Select * From balanc", con)
       con.Open()
       dt.Clear()
       da.Fill(dt)
       'عمل لوب لحساب الصنف
       Dim a As Double = 0
       For j As Integer = 0 To dt.Rows.Count - 1
           For i As Integer = 0 To dt.Rows.Count - 1
               Dim currnt As String = dt.Rows(j)(3)
               Dim currnt1 As String = dt.Rows(i)(3)
               Dim v As Object = dt.Rows(i)(3)
               Dim x As Object = dt.Rows(i)(6)
               If currnt = v Then
                   a = a + dt.Rows(i)(4) - dt.Rows(i)(5)
                   dt.Rows(i)(6) = a
               ElseIf currnt <> v Then
                   a = 0
               End If
           Next
       Next
       dgv.DataSource = dt
       con.Close()
   End Sub