Option Explicit On
Option Strict On
 
Imports System.Data
 
Public Class Form1
 
    Private _ZeigeAllePersonen As Boolean = True
    Private ds As Data.DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        FillDataSet()
        FillListView()
    End Sub
 
    Private Sub FillDataSet()
 
        ds = New Data.DataSet
        Dim dt As DataTable = Me.ds.Tables.Add()
        Dim r As DataRow
 
        dt.Columns.Add(New DataColumn("id", GetType(Integer)))
        dt.Columns.Add(New DataColumn("Vorname", GetType(String)))
        dt.Columns.Add(New DataColumn("Name", GetType(String)))
        dt.Columns.Add(New DataColumn("Anrede", GetType(String)))
        dt.Columns.Add(New DataColumn("gueltig", GetType(Boolean)))
 
        r = dt.NewRow
        r("id") = 1
        r("Anrede") = "herr"
        r("Vorname") = "peter"
        r("Name") = "lustig"
        r("gueltig") = False
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r("id") = 2
        r("Anrede") = "herr"
        r("Vorname") = "hans"
        r("Name") = "meier"
        r("gueltig") = False
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r("id") = 3
        r("Anrede") = "herr"
        r("Vorname") = "klaus"
        r("Name") = "mueller"
        r("gueltig") = False
 
        dt.Rows.Add(r)
    End Sub
 
    Private Sub FillListView()
 
        Me.LVansprechpartner.FullRowSelect = True
 
        For Each dt As Data.DataTable In ds.Tables
            For Each dr As Data.DataRow In dt.Rows
                If CBool(dr("gueltig")) OrElse _ZeigeAllePersonen Then
                    'das "Haupt-Item"
                    Dim ITEM As New ListViewItem
                    ITEM.Tag = dr("id")
 
                    'die SubItems:
                    Dim Name As New ListViewItem.ListViewSubItem(ITEM, dr( _
                      "Name").ToString)
                    Dim Vorname As New ListViewItem.ListViewSubItem(ITEM, dr( _
                    "Vorname").ToString)
 
                    ITEM.Text = dr("Anrede").ToString
                    With ITEM.SubItems
                        .Add(Name)
                        .Add(Vorname)
                    End With
 
                    'ggf. Schriftfarbe auf Rot setzen
                    If Not CBool(dr("gueltig")) Then
                        ITEM.ForeColor = Color.Red
                    End If
 
                    'Item hinzufügen
                    ITEM.UseItemStyleForSubItems = True
                    Me.LVansprechpartner.Items.Add(ITEM)
                End If
            Next
        Next
    End Sub
 
End Class