Doppelte Einträge vermeiden, Datumsvergleich und Icon in Spalten anzeigen

    • VB.NET

      Doppelte Einträge vermeiden, Datumsvergleich und Icon in Spalten anzeigen

      Hallo zusammen !
      Hier wollte ich ein Teil meines Code veröffentlichen, soll irgend-jemand von euch mit einem Tabellen Steuerelemt in berürung kommen.
      Hier ist die Beispiel Code wie man die Doppelte Einträge vermeidet, vergleicht von Datums und wie man in Spalten ICON anzeigen lässt z.b für ein Status

      Beschreibung:
      2 Tabellen flexTabelle und flexEinnerung, in flexTabelle werden Daten eingegeben und Tabelle flexErinnerung befindet sich auf eine andere Form, sobald die Form geladen wird, werden automatisch die Datensätze aus flexTabelle in flexErinnerung eingefügt wenn bis GB bleiben 10, 0, -1(1Tag nach GB) Tage.
      In Tabelle flexErinnerung werden auch mit ICONS die Datensätze angezeigt so zusagen ein Status.
      Ihr könnt die Code auf Ihre weise ändern, hier können nicht nur Datum verglichen sonder auch String, Zahlen oder sonstige Werte.



      VB.NET-Quellcode

      1. ' FLEXTABELLE - TABELLEN STEUERELEMENT (tabelle1)
      2. 'FLEXERINNERUNG - TABELLEN STEUERELEMENT(tabelle2)
      3. 'imgIcon - ImageList
      5. 'ZUERST DIE VARIABLEN DEKLARATION
      7. Dim i As Long
      8. Dim k As Long
      9. Dim lngErinnerungCols As Long
      10. Dim lngTabelleCols1 As Long
      11. Dim lngTabelleCols2 As Long
      12. Dim blnNameVergleichen As Boolean
      13. Dim blnVornameVergleichen As Boolean
      14. Dim lngRow_Zähler_Tabelle As Long
      15. Dim lngRow_Zähler_Erinnerung As Long
      16. Dim strName As String
      17. Dim strVorname As String
      18. Dim strGeburtsTag As String
      19. Dim strGeburtsMonat As String
      20. Dim strGeburtsJahr As String
      21. Dim intDatVorGeburtsTag As Integer
      22. Dim bln_Tage As Boolean
      23. Dim bln_Heute As Boolean
      24. Dim bln_Vergangen As Boolean
      25. Dim lngGeburtsDatum As Date
      29. 'Datum erstellen
      30. strDatum = Date.Now.Date 'heir wierd das Aktuelle Datum z.b 11.07.2007
      32. If flexTabelle.Rows >= 1 Then 'wenn in Tabelle anzahl der Spalten größe oder gleich "1", dann
      33. 'suche
      35. 'Schleifen durchlauf nach Datums in Tabelle1 (flexTabelle)
      36. For lngRow_Zähler_Tabelle = 1 To flexTabelle.Rows - 1
      38. flexTabelle.Row = lngRow_Zähler_Tabelle
      42. flexTabelle.Col = 7 'geburtstag
      43. strGeburtsTag = flexTabelle.Text
      45. flexTabelle.Col = 8 'geburtsmonat
      46. strGeburtsMonat = flexTabelle.Text
      50. lngGeburtsDatum = CDate(strGeburtsTag & "." & strGeburtsMonat)
      52. 'schneide das Datum Links um 5 zeichen, dann 11.07
      53. strDatum = Microsoft.VisualBasic.Left(strDatum, 5)
      55. 'Differenz zwieschen Tage ermitteln
      56. intDatVorGeburtsTag = DateDiff(DateInterval.Day, strDatum, lngGeburtsDatum)
      60. bln_Tage = 10 Like intDatVorGeburtsTag
      61. bln_Heute = 0 Like intDatVorGeburtsTag
      62. bln_Vergangen = -1 Like intDatVorGeburtsTag
      64. 'Wenn eine von Variablen bln_Tage, blnHeute, oder bln_Vergangen Wert True hat dann füge in Tabelle2
      65. ' (flexErinnerung) ein Datensatz zu
      67. If (bln_Tage = True Or bln_Heute = True Or bln_Vergangen = True) And flexErinnerung.Rows = 1 Then
      69. flexErinnerung.Rows = flexErinnerung.Rows + 1
      70. flexErinnerung.RowSel = lngRowMarkierung + 1
      72. 'Schleifen durchlauf in Tabelle1(flexTabelle)
      73. For lngTabelleCols1 = 0 To flexTabelle.Cols - 1
      75. i = lngTabelleCols1
      76. flexTabelle.Col = i
      77. flexErinnerung.set_TextMatrix(flexErinnerung.RowSel, i, flexTabelle.Text)
      80. Next
      82. End If
      85. 'Wenn ein Datensatz vorhanden, und anzahl der Spalten in Tabelle2 (flexEinnerung) größer als "1"
      86. 'und eine von 3 Variablen hat den Wert True dann prüfe ob der Datensatz
      87. 'in Tabelle2 (flexEinnerung) bereits exisistiert
      88. If (bln_Tage = True Or bln_Heute = True Or bln_Vergangen = True) And flexErinnerung.Rows >= 2 Then
      91. For lngRow_Zähler_Erinnerung = 1 To flexErinnerung.Rows - 1
      93. flexErinnerung.Row = lngRow_Zähler_Erinnerung
      95. 'Schleifen durchlauf in Tabelle2 (flexEinnerung)
      96. For lngErinnerungCols = 0 To flexErinnerung.Cols - 1
      99. flexErinnerung.Col = lngErinnerungCols
      100. 'Name und Vorname werden aus Tabelle1(flexTabelle) entnommen
      101. strName = flexTabelle.get_TextMatrix(lngRow_Zähler_Tabelle, 5)
      102. strVorname = flexTabelle.get_TextMatrix(lngRow_Zähler_Tabelle, 6)
      104. blnNameVergleichen = strName Like flexErinnerung.Text
      105. blnVornameVergleichen = strVorname Like flexErinnerung.Text
      107. ' Wenn Datensatz exisistiert dann verlasse die Schleife
      108. If blnNameVergleichen = True And blnVornameVergleichen = True Then Exit For
      110. Next
      112. Next
      115. 'Wenn Datensatz in Tabelle2 (flexEinnerung) nicht exisistiert dann
      116. ' füge aus Tabelle1 (flextabelle) in Tabelle2 (flexerinnerung) ein Datensaz zu
      117. If blnNameVergleichen = False And blnVornameVergleichen = False Then
      119. flexErinnerung.Rows = flexErinnerung.Rows + 1
      120. flexErinnerung.RowSel = lngRowMarkierung + 1
      122. 'Schleifen durchlauf in Tabelle1 (flexTabelle)
      123. For lngTabelleCols2 = 0 To flexTabelle.Cols - 1
      125. k = lngTabelleCols2
      126. flexTabelle.Col = k
      127. flexErinnerung.set_TextMatrix(flexErinnerung.RowSel, k, flexTabelle.Text)
      131. Next
      133. End If
      135. End If
      139. Next
      141. End If




      Mit die Code kann ich mit ICONs in jede Spalte den Status signalisieren

      VB.NET-Quellcode

      1. Dim Icon As Integer
      2. Dim strGeburtsTag As String
      3. Dim strGeburtsMonat As String
      4. Dim lngGeburtsDatum As Date
      5. Dim Z1 As Long
      7. If flexErinnerung.Rows >= 1 Then
      9. 'Schleife durchlauf und prüfe bis GB Tage, weise ein ICON zu
      10. For Z1 = 1 To flexErinnerung.Rows - 1
      12. flexErinnerung.Row = Z1
      14. flexErinnerung.Col = 7
      15. strGeburtsTag = flexErinnerung.Text
      17. flexErinnerung.Col = 8
      18. strGeburtsMonat = flexErinnerung.Text
      20. lngGeburtsDatum = CDate(strGeburtsTag & "." & strGeburtsMonat)
      21. strDatum = Microsoft.VisualBasic.Left(strDatum, 5)
      23. Icon = DateDiff(DateInterval.Day, strDatum, lngGeburtsDatum)
      25. If Icon = 0 Then
      27. flexErinnerung.Col = 19
      28. flexErinnerung.CellPicture = imgIcon.Images(1)
      29. End If
      31. If Icon >= 1 Then
      33. flexErinnerung.Col = 19
      34. flexErinnerung.CellPicture = imgIcon.Images(0)
      36. End If
      38. If Icon <= -1 Then
      40. flexErinnerung.Col = 19
      41. flexErinnerung.CellPicture = imgIcon.Images(2)
      43. End If



      Mfg Alex


      Edit by Agent:
      -> Titel "Source Code" ist zu allgemein -> geändert
      -> Topic ins "SourceCode Austausch" verschoben

      Dieser Beitrag wurde bereits 14 mal editiert, zuletzt von „Alex2000“ ()

    Facebook
    Telefonspende