[Visual Basic]
Private Sub C1Bereich_RowColChange( _ 
   ByVal sender As Object, _ 
   ByVal e As RowColChangeEventArgs _ 
) Handles  _ 
   C1Bereich.RowColChange

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub C1Bereich_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Bereich.RowColChange 
        Try 
            Me.C1Personen.DataSource = Nothing 
            Me.C1Personen.DataSource = Gremienverwaltung.Gremiumperson.Tabledata.Tables(0) 
            Me.C1Personen.DataMember = Gremienverwaltung.GremiumGruppe.Tablename 
            If Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString = "" Then 
                Me.C1Personen.Columns("GremiumBereichNr").FilterText = "-999" 
            Else 
                Me.C1Personen.Columns("GremiumBereichNr").FilterText = Me.C1Bereich.Columns("GremiumBereichnr").Value.ToString 
            End If 
            Me.C1Personen.Columns("Aktiv").FilterText = "True" 
            Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Personen, "GremiumPerson", Me.Gremienverwaltung.Gremiumperson.Tabledata) 
 
            'Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen.Tabledata.Tables(0) 
            Me.C1RolleDropDown.DataSource = Me.Gremienverwaltung.Rollen 
            Me.C1RolleDropDown.ValueMember = "Kontakttypnr" 
            Me.C1RolleDropDown.DisplayMember = "Bezeichnung" 
            Me.C1Personen.Columns("Rollenr").DropDown = Me.C1RolleDropDown 
            Me.C1RolleDropDown.ValueTranslate = True 
            Me.C1RolleDropDown.DisplayColumns(0).Width = 0 
            Me.C1RolleDropDown.Columns("ApplikationsbereichNr").FilterText = "3" 
            Me.C1RolleDropDown.DisplayColumns(1).Width = Me.C1RolleDropDown.Width 
            Me.C1Personen.Columns("Rollenr").ValueItems.Translate = True 
        Catch ex As Exception 
        End Try 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmGremienverwaltung