Dataset/Datatable doppelten Eintrag verhindern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von PapaBeer92.

    Hab ich:

    VB.NET-Quellcode

    1. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    2. ' Einstellungen laden und Anwenden
    3. Me.Opacity = My.Settings.FormOpacity / 100
    4. MetroTrackbar1.Value = My.Settings.FormOpacity
    5. lblVersion.Text = "V " & My.Application.Info.Version.ToString 'Version ausgeben
    6. MetroLabel5.Text = "NEUROWERK Anrufnotiz Version " & My.Application.Info.Version.ToString & vbNewLine _
    7. & "Build-Datum: " & BuildDate
    8. LoadChangelog()
    10. If My.Settings.TopMost = True Then
    11. Me.TopMost = True
    12. MetroSwitch1.Checked = True
    13. Else
    14. Me.TopMost = False
    15. MetroSwitch1.Checked = False
    16. End If
    18. If My.Settings.openOnInternCall = True Then
    19. MetroSwitch2.Checked = True
    20. Else
    21. MetroSwitch2.Checked = False
    22. End If
    23. If My.Settings.LightTheme = True Then
    24. Me.Style = Design.Style.Light
    25. styleSwitch.Checked = False
    26. Else
    27. Me.Style = Design.Style.Dark
    28. styleSwitch.Checked = True
    29. End If
    30. callTime = DateAndTime.Now
    32. 'Daten Einlesen
    33. With DataSet1
    34. If File.Exists(installDir & "\callLog.xml") Then
    35. Try
    36. .ReadXml(_dataPathCalls)
    37. Catch ex As Exception
    38. MsgBox(ex.Message)
    39. End Try
    40. End If
    42. If .TblVorwahl.Count < 1 Then
    43. CreateVorwahlen()
    44. End If
    45. If .tblTyp.Count < 1 Then
    46. CreateTypes()
    47. End If
    48. lblCountNotes.Text = .TblCallLog.Count & " Notizen in der Datenbank"
    49. lblCountVorwahlen.Text = .TblVorwahl.Count & " Vorwahlen in der Datenbank"
    50. End With
    52. Dim arg() = Environment.GetCommandLineArgs 'Argumente in einen Array schmeißen
    53. If arg.Count = 0 Then
    54. If My.Settings.openOnInternCall = False Then
    55. Me.Close()
    56. End If
    57. End If
    59. If UBound(arg) = 2 Then
    60. callID = arg(1)
    61. callName = arg(2)
    62. ElseIf UBound(arg) = 1 Then
    63. callID = arg(1)
    64. End If
    66. If callID.Contains("-") Then
    67. If callID = "-h" Then
    68. callID = ""
    69. Me.Text = Me.Text & " - READONLY"
    70. Else
    71. MsgBox("Ungültiger Parameter!", vbCritical)
    72. callID = ""
    73. Me.Close()
    74. End If
    75. End If
    77. If Not callID = "PlayFile" Then
    78. If Not callID = "" Then
    79. If Not callID.Length < 5 Then
    80. Dim Land As String = Microsoft.VisualBasic.Left(callID, 3)
    81. Dim Vorwahl As String = callID
    82. Vorwahl = Vorwahl.Remove(0, 3)
    83. Land = Land.Remove(0, 1)
    84. 'Und suchen, wenn länger als 1 Zeichen
    85. If Not Vorwahl.Length < 1 Then
    86. Vorwahl = Vorwahl.Remove(5, Vorwahl.Length - 5)
    87. callOrt = FindVorwahl(Land, Vorwahl)
    88. GenerateNew(callID, callOrt)
    89. Me.Text = Me.Text & " - " & callID
    91. End If
    92. ElseIf My.Settings.openOnInternCall = False Then
    93. Me.Close()
    94. Else
    95. GenerateNew(callID, "Intern")
    96. Me.Text = Me.Text & " - INTERN"
    97. End If
    98. End If
    99. End If
    100. 'TblCallLogBindingSource.MoveLast()
    101. End Sub


    Ich habe nun sogar das MoveLast Auskommentiert, Selbiges Ergebnis. Siehe Screenshot, er belässt die TypID, zeigt aber was anderes an.
    Bilder

    • Screenshot 2022-03-25 131830.png

      21,18 kB, 704×667, 41 mal angesehen

    Ok, Dein Post#19 zeigte die Codeverschiebung in den anderen EH nur für eine Zeile, daher mein Gegenpost.
    Hm, meine Variante funktioniert leider doch nicht, keine Ahnung, was da gestern anders lief. Aber ich hab zumindest einen Workaround. Nicht schön, aber erstmal möglich: "temporäres Deaktivieren" des DataBindings.

    VB.NET-Quellcode

    1. Me.MetroComboBox1.DataBindings.RemoveAt(0)
    2. TblCallLogBindingSource.Position = TblCallLogBindingSource.Count - 1
    3. Me.MetroComboBox1.DataBindings.Add(New Binding("SelectedValue", Me.TblCallLogBindingSource, "TypID", True))

    Nachdem der Programmstart fertig ist, kann anscheindend problemlos wieder die BS-Postition geändert werden, ohne dass das Auswirkungen auf die TypID hat. Aber beseitigt ist das Problem damit nicht, nur umgangen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    PapaBeer92 schrieb:


    Es ist übrigens egal ob man die Metro-Elemente von Gather nimmt oder die VB-Studio eigenen - hab's ausprobiert :D


    Hab ich schon getestet gehabt, auch damit bestand/besteht das Problem. In einem der Vorherigen Posts hab ich ja das Projekt angehängt. Der Code ist, wie VaporiZed schon schrieb, nicht schön, aber Funktionial.
    Da kannst du es ja mal austesten

Facebook
Telefonspende