[Visual Basic] Private Sub C1Grp_RowColChange( _
ByVal sender As Object, _
ByVal e As RowColChangeEventArgs _
) Handles _
C1Grp.RowColChange
[Visual Basic] Private Sub C1Grp_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Grp.RowColChange
Try
Me.C1Bereich.DataSource = Gremienverwaltung.GremiumBereich.Tabledata.Tables(0)
Me.C1Bereich.DataMember = Gremienverwaltung.GremiumBereich.Tablename
If Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString = "" Then
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = "-999"
Else
Me.C1Bereich.Columns("GremiumGruppierungNr").FilterText = Me.C1Grp.Columns("GremiumGruppierungNr").Value.ToString
End If
Me.C1Bereich.Columns("Aktiv").FilterText = "True"
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Bereich, "GremiumBereich", Me.Gremienverwaltung.GremiumBereich.Tabledata)
C1Bereich_RowColChange(sender, e)
Catch ex As Exception
End Try
End Sub
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