Classe für DatagriedView Form zeigt nicht Datasource

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Edwardschn.

    Classe für DatagriedView Form zeigt nicht Datasource

    Ich weiss nicht was dem Tier fehlt.
    Kuck ich am Schluss in das Datagried und lass mir den Inhalt von Datasource anzeigen, dann ist es aufgeladen mit der Tabelle.
    Aber im Form wird nichts angezeigt, Das Datagried bleibt leer.

    Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim ClsDGV As New ClsDGV
    5. 'hier steht der Code der dt aufLaedt,
    6. 'lass ich wegen übersicht weg
    8. ClsDGV.FillDGV(dt)
    9. Me.DataGridView1 = ClsDGV.GetDGV
    10. Me.Refresh()
    12. End Sub
    16. Public Class ClsDGV
    18. Private myDGV As DataGridView
    19. Private bolHasChangedAs Boolean
    21. Public Sub New()
    22. myDGV = New DataGridView
    23. End Sub
    25. Public Function GetDGV() As DataGridView
    26. Return Me.myDGV
    27. End Function
    29. Private Sub DGVRowChanged(ByVal sender As Object, ByVal e As DataGridViewRowStateChangedEventArgs)
    31. Me.bolHasChanged= True
    32. End Sub
    34. Public Property SetDGV() As DataGridView
    35. Get
    36. Return Me.myDGV
    37. End Get
    39. Set(ByVal WithEventsValue As DataGridView)
    41. Dim handler2 As DataGridViewRowStateChangedEventHandler = New DataGridViewRowStateChangedEventHandler(AddressOf Me.DGVRowChanged)
    43. If (Not Me.myDGV Is Nothing) Then
    44. RemoveHandler Me.myDGV.RowStateChanged, handler2
    45. End If
    47. Me.myDGV = WithEventsValue
    48. If (Not Me.myDGV Is Nothing) Then
    49. AddHandler Me.myDGV.RowStateChanged, handler2
    50. End If
    51. End Set
    52. End Property
    55. Public Sub FillDGV(ByRef dt As DataTable)
    56. With SetDGV
    57. SetDGV.DataSource = dt
    58. End With
    59. End Sub
    61. End Class

    Edwardschn schrieb:

    VB.NET-Quellcode

    1. Public Sub FillDGV(ByRef dt As DataTable)
    2. With SetDGV
    3. SetDGV.DataSource = dt
    4. End With
    5. End Sub
    Doppelt gemoppelt.
    ------------------------
    Ichj würde die DataSource Me.DataGridView1 zuweisen.
    In der Summe, wie @xtts02: : Schmeiß die Klasse ClsDGV raus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    xtts02 schrieb:

    Erlaube mir bitte die Frage: Wozu soll diese Klasse gut sein?


    Hi xtts02, mach ich gerne.
    (betrifft normales Handling also DatagriedView.Datasource = dt)
    User kommen manchma auf die unmöglichsten ideen, z.B. Buchstaben in ein Feld eintragen, das nur Zahlen erlaubt. Wenn User jetzt den Curser aus der Zeile im Datagriedview nimmt,
    kommt eine Errormessage(weiss jetzt nicht genau was da steht) sinngemäss etwa: nur Zahlen erlaubt. Das erschlisst sich aber nur 'uns' dem normalen User sagte diese Message meisst nichts. Und lässt sich auch nicht per Try Catch abfangen.

    Mit dieser Classe kann ich aber per 'DataGridViewRowStateChangedEventHandler ' auf eine Änderung des User regaieren, bevor er per Maus oder sonstwie das Gried verlässt

    Edwardschn schrieb:

    User kommen manchma auf die unmöglichsten ideen, z.B. Buchstaben in ein Feld eintragen, das nur Zahlen erlaubt.

    Dann ist es doch besser, Du leitest Dir Deine eigene DGV-Column-Klasse von System.Windows.Forms.DataGridViewColumn ab.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Es lässt sich vielleicht auch so machen, aber ich komm nicht an den geändert wert.
    Das Ereignis das ich zuerst nehmen wollte, weil es sich vom Namen her anbietet 'CellValueChanged' geht hier nicht, wird vom FormatedException quasi überholt.
    Die beiden Ereignisse CellLeave und RowLeave werden vorher duchgelassen, aber ich komm nicht an den neu eingetragenen wert.



    Quellcode

    1. Public Class Form2
    3. Private Sub DGVRowChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellLeave
    4. Dim DgRow As DataGridViewRow
    5. Dim myDataRowViewAs DataRowView = Nothing
    6. Dim myDataRowAs DataRow = Nothing
    8. DgRow = DataGridView1.Rows.Item(e.RowIndex)
    9. myDataRowView= DirectCast(DgRow.DataBoundItem, DataRowView)
    10. myDataRow= MyRowView.Row
    11. MessageBox.Show("DGVRowChanged = " & MyRow.Item(e.ColumnIndex))
    12. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. Dim dt As New DataTable
    17. 'Load DataTable
    18. With dt
    19. With .Columns
    20. With .Add("ID", GetType(Integer))
    21. .AutoIncrement = True
    22. .AutoIncrementStep = -1
    23. .AutoIncrementSeed = -1
    24. End With
    25. .Add("col1", GetType(String))
    26. .Add("col2", GetType(Double))
    27. End With
    29. 'Data
    30. For i = 1 To 2
    31. .Rows.Add(dt.NewRow)
    32. With .Rows(.Rows.Count - 1)
    33. .Item("col1") = "Row " & i.ToString
    34. .Item("col2") = Rnd()
    35. End With
    36. Next
    37. End With
    39. Me.DataGridView1.DataSource = dt
    40. End Sub
    41. End Class

    was willst du vom neu eingetragenen Wert?

    Ihn speichern?

    Da gehe doch besser gleich nach "Datenbank in 10 Minuten" auf Movie-Tuts vor, weil da bekommst du einen Button, mit dem du alles speichern kannst - und zwar nur die Änderungen werden an die DB gesandt - das merkt der sich automatisch.

    Auf diese Weise brauchst du nicht den neu eingetragenen Wert, sondern - klick auf Save-Button - und alle neu eingetragenen Werte sind insgesamt inne DB.

Facebook
Telefonspende