Datagridview Inhalt automatisch ändern

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datagridview Inhalt automatisch ändern

    Hallo zusammen ;)

    Ich habe folgenes Problem:

    Ich habe eine Form mit einem Datagridview.
    Außerdem eine MySql-Tabelle. In der MySql-Tabelle gibt es die Spalte "Time"
    Dort ist in ein Timestamp konventiertes Datum enthalten.

    DLL:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class timestamp
    2. Function GetTimestamp(ByVal FromDateTime As DateTime) As Integer
    3. Dim Startdate As DateTime = #1/1/1970#
    4. Dim Spanne As TimeSpan
    6. Spanne = FromDateTime.Subtract(Startdate)
    7. Return CType(Math.Abs(Spanne.TotalSeconds()), Integer)
    8. End Function
    10. Function GetDateFromTimestamp(ByVal unixTimestamp As Integer) As DateTime
    11. Dim Span As TimeSpan
    12. Dim Startdate As Date = #1/1/1970#
    14. If unixTimestamp = 0 Then Return Startdate
    16. Span = New TimeSpan(0, 0, unixTimestamp)
    17. Return Startdate.Add(Span)
    18. End Function
    19. End Class


    Beispielsweise: 01.06.2011 15:08:58 -> 1306940938

    Soweit ist alles okay.

    Jetzt füge ich die gesamte Tabelle in mein Datagridview ein.

    VB.NET-Quellcode

    1. Dim dgv As DataGridView = DataGridView1
    2. Dim conn As MySqlConnection
    3. conn = New MySqlConnection
    4. conn.ConnectionString = "server=" & Mainform.server & "; user id=" & Mainform.user & "; password=" & Mainform.password & "; database=" & Mainform.database
    5. conn.Open()
    6. Dim myAdapter As New MySqlDataAdapter
    7. Dim SQLAbfrage As String = "SELECT * FROM tierag_log"
    8. Dim myCommand As New MySqlCommand
    9. myCommand.Connection = conn
    10. myCommand.CommandText = SQLAbfrage
    12. myAdapter.SelectCommand = myCommand
    13. Dim myData As MySqlDataReader
    14. myData = myCommand.ExecuteReader()
    15. ds = New DataSet()
    16. conn.Close()
    17. Try
    18. conn.Open()
    19. myAdapter.Fill(ds, "Logs")
    20. conn.Close()
    21. dgv.DataSource = ds.Tables("Logs")
    22. Catch ex As Exception
    23. MsgBox(ex.Message)
    24. End Try
    26. formatdatagridcomputer(DataGridView1)
    27. DataGridView1.RowHeadersVisible = False

    Formatierungen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub formatdatagridcomputer(ByVal dgv2 As DataGridView)
    2. 'Bestimmt die Hintergrundfarben des Datagridviews
    3. dgv2.RowsDefaultCellStyle.BackColor = Color.Silver
    4. dgv2.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
    6. 'Entfernt die Spalten
    7. dgv2.Columns.Remove("id")
    8. dgv2.Columns.Remove("time")
    9. dgv2.Columns.Remove("log")
    11. 'Erstellt neue Spalten im Datagridview
    12. Dim tbc1 As New DataGridViewTextBoxColumn
    13. Dim tbc2 As New DataGridViewTextBoxColumn
    14. Dim tbc3 As New DataGridViewTextBoxColumn
    16. 'Gibt die Quelle an
    17. tbc1.DataPropertyName = "id"
    18. tbc2.DataPropertyName = "time"
    19. tbc3.DataPropertyName = "log"
    21. 'Bestimmt den Text, der über die Spalte zu sehen ist.
    22. tbc1.HeaderText = "ID"
    23. tbc2.HeaderText = "Zeit"
    24. tbc3.HeaderText = "Nachricht"
    26. 'Bestimmt die Größe der Spalte, die angezeigt wird.
    27. tbc1.Width = 55
    28. tbc2.Width = 150
    29. tbc3.Width = 705
    31. 'Reihenfolge im Datagridview
    32. tbc1.DisplayIndex = 1
    33. tbc2.DisplayIndex = 2
    34. tbc3.DisplayIndex = 3
    36. 'Fügt die Spalten hinzu.
    37. dgv2.Columns.Add(tbc1)
    38. dgv2.Columns.Add(tbc2)
    39. dgv2.Columns.Add(tbc3)
    41. End Sub


    Jetzt wird in dem Datagridview zum einen die ID sowie die Log-Nachricht angezeigt, aber zum anderen auch die Zeit. Allerdings in der Timestamp-Konventierung.

    Jetzt möchte ich Inhalt der "Time"-Spalte nicht direkt in das Datagridview einfügen, sondern erst den Wert in das normale Datum zurück konventieren.

    VB.NET-Quellcode

    1. GetTimestamp.GetDateFromTimestamp(Timestamp-Wert)
    2. 'Gibt den Wert des Datums zurück mittels DLL.


    Dabei brauche ich Hilfe, weil ich nicht weiß, wie ich da ran gehen soll. Geht es überhaupt?

    Gruß, Dennis

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „starscream14“ ()

    formatierung zeile 38

    VB.NET-Quellcode

    1. dgv2.Columns.Add(tbc2)


    ändern in

    VB.NET-Quellcode

    1. dgv2.Columns.Add(GetDateFromTimestamp
    2. (tbc2))


    sollte gehen wenn

    VB.NET-Quellcode

    1. GetDateFromTimestamp


    so funktioniert :

    echtezeit=GetDateFromTimestamp(timestampzeit)

    Danke für deine Hilfe, aber es funktioniert so leider nicht.
    Lib:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class timestamp
    2. Function GetTimestamp(ByVal FromDateTime As DateTime) As Integer
    3. Dim Startdate As DateTime = #1/1/1970#
    4. Dim Spanne As TimeSpan
    6. Spanne = FromDateTime.Subtract(Startdate)
    7. Return CType(Math.Abs(Spanne.TotalSeconds()), Integer)
    8. End Function
    10. Function GetDateFromTimestamp(ByVal unixTimestamp As Integer) As DateTime
    11. Dim Span As TimeSpan
    12. Dim Startdate As Date = #1/1/1970#
    14. If unixTimestamp = 0 Then Return Startdate
    16. Span = New TimeSpan(0, 0, unixTimestamp)
    17. Return Startdate.Add(Span)
    18. End Function
    19. End Class


    VB.NET-Quellcode

    1. Imports timestamp

    VB.NET-Quellcode

    1. Dim GetTimestamp As New timestamp.timestamp

    VB.NET-Quellcode

    1. dgv2.Columns.Add(GetTimestamp.GetDateFromTimestamp(tbc2))

    "Der Wert vom Typ "System.Windows.Forms.DataGridViewTextBoxColumn" kann nicht in "Integer" konvertiert werden."

    Funktion:

    VB.NET-Quellcode

    1. RichtigeZeit = GetTimestamp.GetDateFromTimestamp(Timestampzeit)


    Gruß, Dennis

    teste mal

    VB.NET-Quellcode

    1. dgv2.Columns.Add(GetTimestamp.GetDateFromTimestamp(tbc2).tostring)

    oder

    VB.NET-Quellcode

    1. dgv2.Columns.Add(GetTimestamp.GetDateFromTimestamp(tbc2.tostring).tostring)

    oder

    VB.NET-Quellcode

    1. dgv2.Columns.Add(GetTimestamp.GetDateFromTimestamp(tbc2.tostring))

    glaube das letzte

    Fehler bei:

    VB.NET-Quellcode

    1. strTest = DirectCast(GetTimestamp.GetDateFromTimestamp(tbc2), String)

    Der Wert vom Typ "System.Windows.Forms.DataGridViewTextBoxColumn" kann nicht in "Integer" konvertiert werden. (tbc2)

    VB.NET-Quellcode

    1. dgv2.Columns.Add(strTest)

    Der Wert vom Typ "String" kann nicht in "System.Windows.Forms.DataGridViewColumn" konvertiert werden. (strTest)

    Fehler direkt im Codefenster, nicht im debuggen.

    Komm schon Leute, nicht aufgeben ;)


    Gruß, Dennis

    Dann ist tbc2 als DataGridViewColumn deklariert ... das kann natürlich mal gar nicht funzen. ^^

    Du kannst nicht eine komplette DataGrid-Column umwandeln. Du brauchst den Cell.Value der Column für die entsprechende Row die Du auslesen willst. ;)

    Gruß

    Rainer

    Für den Code im Opener-Post passt die Deklaration schon. Aber dort werden ja auch keine Datensätze eingelesen, sondern nur die Columns/Spalten des DataGridViews erstellt.

    In dem Code kannst du keine Umwandlung vornehmen. Du kannst die Umwandlung erst vornehmen wenn die Datensätze im DataGridView drinnen sind oder wenn Du Sie selber direkt per Code einfügst dann dabei.

    Zum Beispiel so nach der Befüllung des DataGridViews mit den Daten:

    VB.NET-Quellcode

    1. Dim intCheck As Integer
    3. '// jede Datenzeile abarbeiten
    4. For Each Row As DataGridViewRow In Me.DataGridView1.Rows
    6. '// aus jeder Datenzeile mit der Zelle der Spalte "TimeStamp" arbeiten
    7. With Row.Cells(2) '// 2 = Index der Spalte mit dem TimeStamp-Wert
    8. '// Zellen-Value als Integer abspeichern
    9. intCheck = DirectCast(.Value, Integer)
    10. '// Zellen-Value neu mit Rückgabe aus TS-Umwandlungsfunktion bestücken, dabei explizite Umwandlung in String
    11. .Value = DirectCast(GetTimestamp.GetDateFromTimestamp(intCheck), String)
    13. End With
    15. Next


    So sollte es eigentlich funktionieren ... mal rein theoretisch und aus dem Bauch raus. ^^

    Gruß

    Rainer

    Eingangs sagtest du, du wollest Unix-Timestamps als normale DateTimes formatiert anzeigen.
    Dann solltest du auch das DGV-CellFormatting - Event verwenden.
    Dort bekommst du in den EventArgs den Wert einer Zelle, wie er tatsächlich ist, und kannst ihn ändern, sodasser anders angezeigt wird.
    Musst halt sicherstellen, dass deine Formatierung auch nur auf die Zellen der richtigen Spalte angewandt werden, und in diesem Falle dann auch e.FormattingApplied = True setzen.

    Danke, aber funktioniert noch immer nicht.

    VB.NET-Quellcode

    1. Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    2. e.FormattingApplied = True
    5. Dim intCheck As Integer
    6. For Each Row As DataGridViewRow In Me.DataGridView1.Rows
    7. With Row.Cells(2)
    8. intCheck = DirectCast(.Value, Integer)
    9. .Value = GetTimestamp.GetDateFromTimestamp(intCheck).ToString
    10. End With
    11. Next
    12. End Sub

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub formatdatagridcomputer(ByVal dgv2 As DataGridView)
    2. dgv2.RowsDefaultCellStyle.BackColor = Color.Silver
    3. dgv2.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
    5. dgv2.Columns.Remove("id")
    6. dgv2.Columns.Remove("time")
    7. dgv2.Columns.Remove("log")
    10. Dim tbc1 As New DataGridViewTextBoxColumn
    11. Dim tbc2 As New DataGridViewTextBoxColumn
    12. Dim tbc3 As New DataGridViewTextBoxColumn
    14. tbc1.DataPropertyName = "id"
    15. tbc2.DataPropertyName = "time"
    16. tbc3.DataPropertyName = "log"
    18. tbc1.HeaderText = "ID"
    19. tbc2.HeaderText = "Zeit"
    20. tbc3.HeaderText = "Nachricht"
    23. tbc1.Width = 55
    24. tbc2.Width = 150
    25. tbc3.Width = 705
    28. tbc1.DisplayIndex = 0
    29. tbc2.DisplayIndex = 1
    30. tbc3.DisplayIndex = 2
    32. dgv2.Columns.Add(tbc1)
    33. dgv2.Columns.Add(tbc2)
    34. dgv2.Columns.Add(tbc3)
    35. End Sub


    Wieso funktioniert das denn nicht? :(

    Gruß, Dennis
    Bilder

    • screenshot_vb_ta.png

      176,75 kB, 1.600×900, 152 mal angesehen

    das CellFormatting beschäftigt sich nur mit der Formatierung genau einer Zelle.
    Es macht also keinen Sinn, da in einer Schleife alle Rows durchzugehen, sondern du mußt als erstes die angefragte Zelle identifizieren, und dann entscheiden, ob das überhaupt eine Zelle ist, die du formatieren willst.
    Erst dann auch formatieren, und e.FormattingApplied auf True setzen.

    Beachte: das ist ein anderer Ansatz, da kannstenicht unbedingt Codevorschläge von anderen Ansätzen einfach einpasten oderso.

    ErfinderDesRades schrieb:

    Es macht also keinen Sinn, da in einer Schleife alle Rows durchzugehen, sondern du mußt als erstes die angefragte Zelle identifizieren, und dann entscheiden, ob das überhaupt eine Zelle ist, die du formatieren willst.
    Das heißt, dass ich beim Aufruf nicht sofort alle Zeilen der Spalte "time" in konventieren kann?