[Visual Basic]
Private Sub C1Bereich_AfterColUpdate( _ 
   ByVal sender As Object, _ 
   ByVal e As ColEventArgs _ 
) Handles  _ 
   C1Bereich.AfterColUpdate

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub C1Bereich_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Bereich.AfterColUpdate 
        'Aktualisieren von Mutierer und Mutiert_am 
 
        Dim i As Integer 
        Try 
            For i = 0 To Me.C1Bereich.Columns.Count - 1 
                If LCase(Me.C1Bereich.Columns(i).DataField) = "mutiert_am" Then Me.C1Bereich.Columns(i).Value = Now 
                If LCase(Me.C1Bereich.Columns(i).DataField) = "mutierer" Then Me.C1Bereich.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value 
            Next 
 
            'neuer DB-Key auslösen, sofern kein Key vorhanden ist 
            If Me.C1Bereich.Columns(0).Value Is DBNull.Value Then 
                Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle() 
                Dim key As Long 
                dbkey.cpMainConnectionProvider = conn 
                key = dbkey.get_dbkey(Me.Gremienverwaltung.GremiumBereich.Tablename) 
                Me.C1Bereich.Columns(0).Value = key 
                For i = 0 To Me.C1Bereich.Columns.Count - 1 
                    If LCase(Me.C1Bereich.Columns(i).DataField) = "mandantnr" Then 
                        Me.C1Bereich.Columns(i).Value = Globals.clsmitarbeiter.iMandantnr.Value 
                    End If 
                    If LCase(Me.C1Bereich.Columns(i).DataField) = "erstellt_am" Then 
                        Me.C1Bereich.Columns(i).Value = Now 
                    End If 
                    If LCase(Me.C1Bereich.Columns(i).DataField) = "aktiv" Then 
                        Me.C1Bereich.Columns(i).Value = 1 
                    End If 
                    If LCase(Me.C1Bereich.Columns(i).DataField) = "gremiumgruppierungnr" Then 
                        Me.C1Bereich.Columns(i).Value = Me.C1Grp.Columns("Gremiumgruppierungnr").Value 
                    End If 
                Next 
                dbkey.Dispose() 
            End If 
        Catch 
        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