Bindingsource.Find

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

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von darkman203.

    Bindingsource.Find

    Hallo zusammen,

    ich habe ein gebundenes Dataset welches aus einer ExcelTabelle gefüllt werden muss. (Das funktioniert soweit)
    Der Wert der Excel Tabellenspalte steht in (value(5).

    Ich möchte jetzt überprüfen ob die Anrede bereits vorhanden ist und wenn nicht, soll diese angelegt werden. (Das funktioniert schon)
    Wenn die Anrede bereits vorhanden ist, möchte ich von der gefundenen Row den Wert der Spalte ID ermitteln. (Da komme ich nicht weiter)

    VB.NET-Quellcode

    1. ​
    2. If Not IsNothing(value(5)) Then
    3. Dim _Anrede As String = value(5).ToString
    4. Dim _AnredeSeach As Integer = AnredeBindingSource.Find("Anrede", _Anrede)
    6. If _AnredeSeach = -1 Then ' Wemm noch nicht vorhanden, lege neu an
    7. AnredeBindingSource.AddNew()
    8. Dim _row = DirectCast(DirectCast(AnredeBindingSource.Current, DataRowView).Row, ds_Kundengesamtliste.AnredeRow)
    9. _row.Anrede = _Anrede
    10. AnredeBindingSource.EndEdit()
    12. Else
    13. 'Wenn die Anrede schon vorhanden ist den Wert der Spalte ID ermitteln
    14. End If
    15. End If



    Hoffe es kann mir jemand auf die Sprünge helfen.

    darkman203 schrieb:

    ch habe ein gebundenes Dataset welches aus einer ExcelTabelle gefüllt werden muss
    Wie bindest du die Daten an dein DataSet an? Per BindigSource und BindingList oder nur per BindingList?

    darkman203 schrieb:

    Wenn die Anrede bereits vorhanden ist, möchte ich von der gefundenen Row den Wert der Spalte ID ermitteln
    Wenn du das Anbinden mit BindingList machst, dann kannst du deine BindingList per Linq-Erweiterung über die .ToList()-Methode in eine List casten dann darauf die Find-Methode anwenden (Annonyme Methode bzw Delegaten)

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Class1
    4. Private bindingList As BindingList(Of Mitarbeiter)
    6. Public Sub New()
    7. Me.bindingList = New BindingList(Of Mitarbeiter)()
    9. End Sub
    11. Sub foo()
    12. Dim id As Integer = SucheMitarbeiterAnhandVonAnrede("Herr").ID
    13. End Sub
    15. Function SucheMitarbeiterAnhandVonAnrede(anrede As String) As Mitarbeiter
    16. Dim mit As Mitarbeiter = Me.bindingList.ToList().Find(Function(m)
    17. Return m.Anrede = anrede
    18. End Function)
    19. Return mit
    20. End Function
    22. End Class
    24. Public Class Mitarbeiter
    25. Public Property ID As Integer
    26. Public Property Anrede As String
    27. Public Property Nachname As String
    28. Public Property Vorname As String
    29. Public Property Mail As String
    30. End Class
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Radinator schrieb:

    Wie bindest du die Daten an dein DataSet an? Per BindigSource und BindingList oder nur per BindingList?
    Nach seim Code zu schließen ist ein typisiertes Dataset vorhanden sowie im Designer gestaltete Bindings an BindingSources.

    Vom typDataset kann man sehr ähnlich mit Linq arbeiten, zB mit der .Contains-Extension.

    @darkman203: Wenn du noch weitere Hilfestellung brauchst, würde ich dich bitten uns genauere Informationen zu geben:
    Wie sieht (grob) dein Dataset aus?
    Was ist dein value() Array? Also welcher Typ.
    Was genau ist gemeint mit "ob die Anrede bereits vorhanden ist"? Also ob "Herr" mindestens einmal vorhnden ist oder ob Herr "Huber" schon einmal vorhanden ist?

    Edit: Hier ein Code-sample:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Linq
    3. Imports System.Data
    4. Imports System.Drawing
    5. Imports System.Windows.Forms
    6. Imports System.Collections.Generic
    8. Public Class Form1
    9. Private dg As DataGrid
    10. Private bs As BindingSource
    11. Private pList As List(Of Person)
    12. Public Sub New()
    13. InitializeComponent()
    15. Me.dg = New DataGrid()
    16. Me.bs = New BindingSource()
    17. Me.pList = Me.GibPersonen()
    18. Me.bs.DataSource = Me.pList
    19. Me.dg.DataSource = Me.bs
    21. Me.dg.Location = New Point(10, 10)
    22. Me.dg.Size = New Size(400, 150)
    23. Me.Controls.Add(Me.dg)
    24. End Sub
    26. Private Function PruefeAufVorhandeneAnredeUndLiefereDieId(anrede As String) As Integer
    27. Dim personenliste = From p1 In Me.pList
    28. Where p1.Anrede = anrede
    30. Dim id As Integer = -1 'Nach Aufruf den Rückgabewertprüfen, -1 heißt kein Eintrag gefunden
    31. If (personenliste.Count() > 0) Then
    32. id = personenliste.First().ID
    33. End If
    34. Return id
    35. End Function
    37. Private Function GibPersonen() As List(Of Person)
    38. Dim liste As New List(Of Person)
    39. liste.Add(New Person() With
    40. {
    41. .ID = 1,
    42. .Anrede = "Herr",
    43. .Nachname = "Mustermann",
    44. .Vorname = "Max"
    45. })
    46. liste.Add(New Person() With
    47. {
    48. .ID = 2,
    49. .Anrede = "Frau",
    50. .Nachname = "Mustermann",
    51. .Vorname = "Erika"
    52. })
    53. liste.Add(New Person() With
    54. {
    55. .ID = 1,
    56. .Anrede = "Frau",
    57. .Nachname = "Merkel",
    58. .Vorname = "Angela"
    59. })
    60. Return liste
    61. End Function
    63. End Class
    65. Class Person
    66. Public Property ID As Integer
    67. Public Property Anrede As String
    68. Public Property Nachname As String
    69. Public Property Vorname As String
    70. End Class


    LG Radinator
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

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

    darkman203 schrieb:

    ​Kannst du mir im Bezug auf Linq und .Contains-Extension noch ein wenig Schützenhilfe geben?


    VB.NET-Quellcode

    1. Dim DoktorAnredeGibtsSchon As Boolean = myDataset.Anrede.Contains(Function(ar)ar.RowState<>RowState.Detached Andalso ar.RowState<>RowState.Deleted Andalso ar.Anrede = "Dr.")

Facebook
Telefonspende