Dag Allemaal,
Wil iemand helpen mijn code te verbeteren a.u.b. (zie Rode tekst)
Me.DataGridView1.Rows.Add(SplitLine)
'De code werkt nu enkel voor de éérste rij !
Wil iemand helpen mijn code te verbeteren a.u.b. (zie Rode tekst)
Me.DataGridView1.Rows.Add(SplitLine)
'De code werkt nu enkel voor de éérste rij !
Code:
[COLOR="blue"]Dim[/COLOR] startdatum [COLOR="blue"]As String[/COLOR]
[COLOR="blue"]Dim[/COLOR] dagen [COLOR="blue"]As Date[/COLOR]
[COLOR="SeaGreen"]'Lees de datum uit de 2de kolom = Cells(1) :[/COLOR]
startdatum = DataGridView1.Rows(0).Cells(1).Value
dagen = [COLOR="Blue"]CDate[/COLOR](startdatum)
[COLOR="seagreen"]'Bereken het verschil in dagen tussen de startdatum en de huidige datum
'en zet deze waarde in de 4de kolom = Cells(3) :[/COLOR]
DataGridView1.Rows(0).Cells(3).Value = DateDiff(DateInterval.Day, Now, dagen)
[COLOR="seagreen"]' Doe dit nu voor elk record (Rows) in de DataGridVieuw :[/COLOR]
[COLOR="Red"]For Each startdatum In DataGridView1.Rows()
DataGridView1.Cells(3).Value = DateDiff(DateInterval.Day, Now, dagen)
[/COLOR]
[COLOR="Blue"]Next[/COLOR]
[COLOR="blue"]Loop[/COLOR]
Laatst bewerkt door een moderator: