Release aktualisieren
[Visual Basic]
Private Sub Refresh_ReleaseLogbuch()
[Visual Basic] Private Sub Refresh_ReleaseLogbuch()
Try
If Check_Changes() = False Then Exit Sub
Catch ex As Exception
End Try
Dim filtertext As String = "none"
Try
filtertext = Me.C1ReleaseLogbuch.Columns("Aktiv").FilterText
Catch ex As Exception
End Try
Dim bm As Integer = 0
bm = Me.C1ReleaseLogbuch.Bookmark
'Me.C1ReleaseLogbuch.Columns("Releasedatum").NumberFormat = "FormatText Event"
Me.C1ReleaseLogbuch.Enabled = False
Me.Applikation.Get_ReleaseLogbuch(Me.C1ReleaseLogbuch, Me.Aktuelle_Applikation)
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1ReleaseLogbuch, "ApplikationLogbuch", Me.Applikation.ReleaseLogbooks.Tabledata)
If filtertext <> "none" Then Me.C1ReleaseLogbuch.Columns("Aktiv").FilterText = filtertext
sec.Set_Form_Security(Me)
Try
Me.C1ReleaseLogbuch.Bookmark = bm
Catch ex As Exception
End Try
Me.C1ReleaseLogbuch.Enabled = True
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