Как настроить цену, когда я удаляю элемент в моем DataGridView (не подключается ни к какой базе данных) Vb.net - PullRequest
0 голосов
/ 26 мая 2020

Я пытаюсь скорректировать промежуточный итог, когда удаляю элемент в моем представлении сетки данных (не подключается к базе данных.

`

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
                Me.DataGridView1.Rows.Add("H.Burger", "10.90")
                Subtotal = Subtotal + "RM10.9"
                Me.Label13.Text = Subtotal.ToString()
            End Sub
            Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
                Me.DataGridView1.Rows.Add("S.Carborana", "12.90")
                Subtotal = Subtotal + 12.9
                Me.Label13.Text = Subtotal.ToString()
            End Sub
            Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
                Me.DataGridView1.Rows.Add("N.Lemak", "5.90")
                Subtotal = Subtotal + 5.9
                Me.Label13.Text = Subtotal.ToString()
            End Sub
            Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
                Me.DataGridView1.Rows.Add("CurryMee", "7.90")
                Subtotal = Subtotal + 7.9
                Me.Label13.Text = Subtotal.ToString()
            End Sub
            Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
                Me.DataGridView1.Rows.Add("CCRice", "8.90")
                Subtotal = Subtotal + 8.9
                Me.Label13.Text = Subtotal.ToString()
            End Sub

1 Ответ

0 голосов
/ 26 мая 2020

Вы можете попробовать, как показано ниже,

Private Sub AdjustPrice()
        Dim price As Decimal = 0
        For x = 0 To Datagridview1.Rows.Count - 1
            If Not IsDBNull(Datagridview1.Rows(x).Cells([your cell goes here]).Value) Then price = price + Datagridview1.Rows(x).Cells([your cell goes here]).Value
        Next
        lblPrice.Text = FormatCurrency(sum.ToString())
    End Sub

установить AdjustPrice при загрузке формы или где вы хотите начать действие.

из приведенного выше кода, вы можете отобразить свой Цена на этикетке или текстовом поле

Попробуйте и дайте мне знать

...