Waarde cellen automatisch invullen in DataGridVieuw

Status
Niet open voor verdere reacties.

Jan92

Gebruiker
Lid geworden
17 feb 2010
Berichten
111
Dag Allemaal,

De foto maakt de vraag duidelijk.

Kan de systeemdatum automatisch in kolom4 gezet worden ALS in kolom1 de
waarde "Ja" staat ? Indien de waarde "Neen" moet er dus niets gebeuren.
De waarden in de DataGrid worden uit een tekstbestand (csv) file gehaald die
dus dienst doet als DataBase.

groeten, Jan

Form code :

Public Class Form23

Private Sub Form23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Ingevulde gegevens van Data-rooster wegschrijven naar Tekstbestand. (csv-Database)

Dim TextLine As String = ""

Dim SplitLine() As String

'Kontroleren of het opgegeven bestand wel bestaat

If System.IO.File.Exists("D:\VB-Testmap\Form23.csv") = True Then

'De inhoud van de datagrid lezen

Dim objReader As New System.IO.StreamReader("D:\VB-Testmap\Form23.csv")

Do While objReader.Peek() <> -1

TextLine = objReader.ReadLine()

SplitLine = Split(TextLine, ";")

Me.DataGridView1.Rows.Add(SplitLine)

Loop

Else

MsgBox("DataBase-Bestand bestaat niet")

End If

End Sub

'De inhoud van de Datagrid bewaren in het geheugen

Private Sub SaveGridDataInFile()

Dim I As Integer = 0

Dim j As Integer = 0

Dim cellvalue$

Dim rowLine As String = ""

Try

'Eerst "oud" bestand verwijderen !

IO.File.Delete("D:\VB-Testmap\Form23.csv")

'Gegevens wegschrijven naar DataBase :

Dim objWriter As New System.IO.StreamWriter("D:\VB-Testmap\Form23.csv", True)

For j = 0 To (DataGridView1.Rows.Count - 2)

For I = 0 To (DataGridView1.Columns.Count - 1)

If Not TypeOf DataGridView1.CurrentRow.Cells.Item(I).Value Is DBNull Then

cellvalue = DataGridView1.Item(I, j).Value

Else

cellvalue = ""

End If

rowLine = rowLine + cellvalue + ";"

Next

objWriter.WriteLine(rowLine)

rowLine = ""

Next

objWriter.Close()

MsgBox("Gegevens bewaard")

Catch e As Exception

MessageBox.Show("Er is een fout opgetreden tijdens het schrijven naar het bestand" + e.ToString())

Finally

FileClose(1)

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'Gegevens wegschrijven naar DataBasebestand :

SaveGridDataInFile()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

'Scherm sluiten en terugkeren naar het Keuzemenuscherm

Form2.Show()
Me.Close()

End Sub
End Class
 

Bijlagen

  • VB-Leren-7.jpg
    VB-Leren-7.jpg
    19,1 KB · Weergaven: 61
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan