Function UpdateGrid(ByVal dgv As DataGridView) As DataGridView dgv.Rows(1).Cells("Kontonummer").Value = 55 dgv.Rows(1).Cells("Kontonummer").Style.BackColor = Color.Red Dim n As Integer For n = 0 To dgv.Rows.Count - 1 dgv.Rows(n).Cells("MBal").Style.BackColor = Color.Red 'dgv.Rows(n).Cells("AaBal").Value = Round(dgv.Rows(n).Cells("AaBal").Value, 1) dgv.Rows(n).Cells("AaBal").Value = Round(dgv.Rows(n).Cells("Aarssaldo").Value * 100 / dgv.Rows(n).Cells("TotalBudget").Value, 1) Next Return dgv End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.