Totaal van datagrid row

[Schipperjte]

Hoi,
Heb via de wizard een database in access toegevoegd

Een datagridview in een form , opslaan enz gaat .

Maar wat moet ik nu doen om bv het totaal van de row KG en de row KG gelost te krijgen?

Het liefst zou ik deze in 2 textboxen op het form zien.

 

[Schipperjte]

Heb wel wat gevonden , maar deze geeft het totaal aan wat er al staat .
Als ik een nieuw row aanmaak , een getal er onder geeft hij een error .

Verander ik de getallen doet hij het wel ?

Dit is de code

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sum = (From row As DataGridViewRow In DataGridViews1.Rows.Cast(Of DataGridViewRow)() _
         Select CInt(row.Cells(1).Value)).Sum

        TextBox1.Text = sum.ToString
    End Sub

en de error

De conversie van type DBNull naar type Decimal is ongeldig.

Als ik de decimal veranderd krijg ik het zelfde
CDec inplaats van Cint

 

[old Hippy]

Hi probeer dit eens

Private Sub jouwBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jouwBindingSource.CurrentChanged, jouwBindingSource.PositionChanged

        Try
            If Me.jouwBindingSource.Position > -1 Then
                Dim PrijsTotaal As Double = 0
                For Each row As DataRowView In Me.jouwBindingSource.List
                    Try
                        PrijsTotaal += row!PrijsTotaal
                    Catch ex As Exception
                        Exit Try
                    End Try
                Next
                Me.TextBox1.Text = Format(PrijsTotaal, "c")
            
            Else
                Me.TextBox1.Text = ""
            End If
        Catch ex As Exception

        End Try
    End Sub

 

[Schipperjte]

Hoi old Hippy,

Bedankt ,hier kan ik wel wat mee.

Heb nog een rij toegevoegd.
Weet niet of het zo moet maar het werkt wel.

Wou alleen een andere toevoegen maar in de naam zit een spatie, dan doet hij het niet.
Of is hier een handigheidje voor ?
Dit werkt niet _

  Private Sub Tabel1BindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabel1BindingSource.CurrentChanged, Tabel1BindingSource.PositionChanged

        Try
            If Me.Tabel1BindingSource.Position > -1 Then
                Dim PrijsTotaal As Double = 0
                For Each row As DataRowView In Me.Tabel1BindingSource.List
                    Try
                        PrijsTotaal += row!Laadplaats
                    Catch ex As Exception
                        Exit Try
                    End Try
                Next
                Me.TextBox1.Text = Format(PrijsTotaal)

            Else
                Me.TextBox1.Text = ""
            End If
        Catch ex As Exception

        End Try
        Try
            If Me.Tabel1BindingSource.Position > -1 Then
                Dim PrijsTotaalen As Double = 0
                For Each row As DataRowView In Me.Tabel1BindingSource.List
                    Try
                        PrijsTotaalen += row!Datum
                    Catch ex As Exception
                        Exit Try
                    End Try
                Next
                Me.TextBox2.Text = Format(PrijsTotaalen)

            Else
                Me.TextBox2.Text = ""
            End If
        Catch ex As Exception

        End Try
    End Sub
End Class

 

[old Hippy]

Hi dit kan in 1 formulle.

Try
            If Me.Tabel1BindingSource.Position > -1 Then
                Dim PrijsTotaal As Double = 0
                Dim PrijsTotaalen As Double = 0
                For Each row As DataRowView In Me.Tabel1BindingSource.List
                  Try
              
                   PrijsTotaal += row!Laadplaats
                   PrijsTotaalen += row!Datum
           
                 Catch ex As Exception
                        Exit Try
                    End Try
                Next
                Me.TextBox1.Text = Format(PrijsTotaal)
                Me.TextBox2.Text = Format(PrijsTotaalen)
            Else
                Me.TextBox1.Text = ""
                Me.TextBox2.Text = ""
            End If
        Catch ex As Exception

        End Try

Wat je met een spatie bedoelt weet ik niet.
geef eens een voorbeeld

 

[Schipperjte]

Kijk dat scheelt inderdaad aardig wat code

Met een spatie bedoel ik

Kilogram geladen

Tussen Kilogram en geladen staat een spatie in de database van Access

Dit werkt niet

 Kilogram_geladen

Bas

 

[old Hippy]

Ok ik zou het in je database aanelkaar schrijven
en in je ColumnHeader van je datagrid in de haederText de spatie zetten dan doet hij het wel.

 

[Schipperjte]

Ga ik proberen , bedankt