Comment définir la valeur de la ligne actuelle en fonction des données de la ligne suivante dans un datagridview à l'aide de vb.net

Question

J'ai rencontré ce problème en définissant une valeur de cellule basée sur la valeur de la ligne suivante.

Par exemple;

Remarks Reference 
    A   50 
    A   25 
    B   5 
       -25 

CASE 1:

Si la valeur de la prochaine Cell.Row dans la colonne « Référence » est un nombre positif, la valeur de cell.row dans la colonne « Remarques » est « A ».

CASE 2:

Si la valeur de la Cell.Row suivante dans la colonne « Référence » est un nombre NÉGATIVE alors la valeur de cell.row dans la colonne « Remarques » est « B ».

J'ai déjà essayé ce code mais je n'arrive pas à obtenir le résultat dont j'ai besoin.

Dim Bal As Decimal = 0 
    For Each r As DataGridViewRow In dgvSTSub.Rows 
     Bal = Bal + r.Cells(3).Value - r.Cells(1).Value 
     r.Cells(3).Value = Bal 

     If Bal > 0 Then 
      r.Cells(2).Value = Bal 
     ElseIf Bal < 0 Then 
      r.Cells(2).Value = r.Cells(3).Value 
     End If 
    Next 

S'il vous plaît partagez-moi un code sur la façon de le faire.

Answer 1

Tout d'abord, je recommande d'utiliser la boucle For au lieu de ForEach parce que l'itération sur les lignes devient plus pratique et plus facile.

En second lieu, utiliser ColumnNames au lieu de Index lors de l'accès .Cells, par exemple: utiliser .Cells("reference") (référence est le nom de la colonne) au lieu de .Cells(1). Je suggère ceci parce que si à l'avenir vous réorganisez les colonnes vos méthodes et fonctions ne seront pas gênées, sauf si vous changez le nom de votre colonne.
Remarque: ColumnName n'est pas le texte d'en-tête affiché dans l'interface utilisateur DataGridView. (Espérons que vous savez déjà que)

Comme vous ne l'avez pas montré où vous définissez des remarques, ce qui devrait vous faire une idée comment y parvenir:

For index = 0 To DataGridView1.RowCount - 1 
    Dim nxt = 1 
    If (index + 1 < DataGridView1.RowCount) Then 
     nxt = DataGridView1.Rows(index + 1).Cells("reference").Value 
    End If 
    If (nxt) > 0 Then 
     DataGridView1.Rows(index).Cells("remark").Value = "A" 
    Else 
     DataGridView1.Rows(index).Cells("remark").Value = "B" 
    End If 
Next 

Sortie factice:

Remark Reference 

A  13 
B  21 
A  -33 
B  41 
A  -54