Hola draco1103! Solucionado y probado en tu proyecto, este es el codigo :
Código vb.net:
Ver originalDim existe = False
For Each row As DataGridViewRow In grilla_dia.Rows
If Convert.ToString(row.Cells(0).Value).Equals(grilla_menu.CurrentRow.Cells(2).Value) Then
existe = True
End If
Next
If (existe = True) Then
MsgBox("Éste menú ya fué agregado", MsgBoxStyle
.OkOnly,
"INFORMACIÓN") Else
grilla_dia.Rows.Add(grilla_menu.CurrentRow.Cells(2).Value, grilla_menu.CurrentRow.Cells(3).Value)
toot = grilla_menu.CurrentRow.Cells("Valor").Value
tota = VALOR.Text
k = (toot + tota)
VALOR.Text = k
End If
Saludos!