[Visual Basic] Public Sub New( _
ByVal DokumentNr As Integer, _
ByVal Doktype As Integer, _
Optional ByVal Elementnr As Integer = -1, _
Optional ByVal Anzeige As Boolean = False, _
Optional ByVal CreateNew As Boolean = False _
)
[Visual Basic] Sub New(ByVal DokumentNr As Integer, ByVal Doktype As Integer, Optional ByVal Elementnr As Integer = -1, Optional ByVal Anzeige As Boolean = False, Optional ByVal CreateNew As Boolean = False)
Me.InitializeComponent()
If CreateNew Then
Me.Aktuelles_Dokument = Me.Dokument.Add_New(Elementnr, DokType)
Me.Neuer_Datensatz = True
Else
Me.Aktuelles_Dokument = DokumentNr
End If
Me.Anzeige = Anzeige
Me.Aktuelles_Element = Elementnr
Me.Doktype = Doktype
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