Treedaten auselsen
[Visual Basic] Public Function Get_Struktur( _
ByRef tree As TreeView, _
Optional ByVal SelectionType As Integer = 0, _
Optional ByVal Aktiv As Boolean = True, _
Optional ByVal suchtype As Integer = 0, _
Optional ByVal suchstring As String = "", _
Optional ByVal partnernr As Integer = 0 _
) As Object
[Visual Basic] Public Function Get_Struktur(ByRef tree As TreeView, Optional ByVal SelectionType As Integer = 0, Optional ByVal Aktiv As Boolean = True, Optional ByVal suchtype As Integer = 0, Optional ByVal suchstring As String = "", Optional ByVal partnernr As Integer = 0)
Me.TreeData = Get_Treedata(SelectionType, Aktiv, suchtype, suchstring, partnernr)
Select Case SelectionType
Case 0
Me.SelectionType = "Vertragspartner"
Case 1
Me.SelectionType = "Vertragstyp"
Case Else
Me.SelectionType = "Unknown"
End Select
Load_Tree(tree)
End Function
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