Aktualiserung der Grids Lizenzkauf und Lizenzschluessel
[Visual Basic]
Private Sub Lizenzkauf_Aktualisieren()
[Visual Basic] Private Sub Lizenzkauf_Aktualisieren()
Try
Me.Applikation.Get_Lizenzkauf(Me.C1Lizenzvertraege.Columns("Vertragselementnr").Value, Me.Aktuelle_Applikation)
Me.C1Lizenzkäufe.DataSource = Me.Applikation.Lizenzkauf
'Me.Applikation.Vertragselement.Lizenzinformationen.Get_Lizenzkauf(Me.C1Lizenzvertraege.Columns("Vertragselementnr").Value, Me.C1Lizenzkäufe, Me.Aktuelle_Applikation)
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf", Me.Applikation.Lizenzkauf)
Me.Lizenzschluessel_Aktualisieren()
Catch ex As Exception
Exit Sub
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