|
| |
|
Re: Tree view control in 6.2
Posted: 21 Feb 08 4:46 PM
|
| A great example of using a tree control in SLX can be found on the OOTB screen for parent account hierarchy. Take a look there to see if that can help. |
|
|
| |
|
Re: Tree view control in 6.2
Posted: 16 Feb 09 10:10 AM
|
Originally posted by alexUA
Hi! What is OOTB screen? |
|
"OOTB screen" = "out of the box screen". SLX has a screen out of the box that displays account hierarchy that uses the tree control. I don't recall completely what the exact name of that screen is, but looking for a screen named something about "hierarchy" should find it. |
|
|
|
Re: Tree view control in 6.2
Posted: 20 Feb 09 3:51 AM
|
Thank you, but i dont see this Example in my OOTM screen. Can you please put a part of code in forum topic? Intresting in syntax:
TreeView1.Nodes.AddFirst ...
Thank you! |
|
|
|
Re: Tree view control in 6.2
Posted: 20 Feb 09 6:07 AM
|
The form is called SLX Manage Hierarchy. It is called from the Account Detail form.
Phil |
|
|
|
Re: Tree view control in 6.2
Posted: 24 Feb 09 3:45 PM
|
Sub LoadTree
Dim rsSDRS
Dim objNewNode
DIM objRootNode
DIM objParentNode
DIM objMemberNode
Dim SQL
Dim strAccountID
Dim strType
Dim strAccount
Dim strPID
Dim strParentID
DIM strEnrollment
treeSDRS.Nodes.Clear
InitialLoadDone = False
gAcctID = "" & txtAccountID.Text
IF gACCTID = "" THEN EXIT SUB
gParentID = "" & txtParentAccountID.TEXT
gAcctType = "" & pklHierarchy.TEXT
SQL = BuildParentAccounts_SQL_PV(gAcctID, gParentID )
IF SQL = "" THEN EXIT SUB
SET objSLXDB = NEW SLX_DB
Set rsSDRS = objSLXDB.GetNewRecordSet
rsSDRS.Open SQL, objSLXDB.Connection
Set objParentNode = treeSDRS.Nodes.Add (Nothing, "BEGIN: ")
DIM iCount
iCount = 0
While not (rsSDRS.EOF)
strAccountID = "" & rsSDRS.Fields(0).Value
strType = "" & rsSDRS.Fields("Type").Value
strAccount = "" & rsSDRS.Fields(2).Value
strPID = "" & rsSDRS.Fields(3).Value
strParentID = "" & rsSDRS.Fields("PARENTID").Value
strEnrollment = "" & rsSDRS.Fields("ENROLLMENT").Value
Set objParentNode = treeSDRS.Nodes.AddCHILD (objParentNode, strType & ": " & strAccount & " : " & strPID & " : " & strEnrollment )
objParentNode.TAG = strAccountID
Application.Debug.WriteLine "Add Tree Node: " & strAccountID & " " & strType & ": " & strAccount & " : " & strPID & " : " & strEnrollment
iCount = iCount + 1
rsSDRS.MoveNext
Wend
rsSDRS.Close
Set rsSDRS = Nothing
IF iCount > 0 THEN
InitialLoadDone = TRUE
TreeSDRS.FullExpand
END IF
''' TreeSDRS.FullCollapse
gSelectedAcctID = ""
cmdAddChildren.Visible = FALSE
End Sub |
|
|
| |
|
Re: Tree view control in 6.2
Posted: 25 Jun 09 3:53 AM
|
Hello!
Help me please with TreeView opening. Which procedure or option are open TreeView branch?
For Example when I doing refresh I want that my TreeView will open with last opened branch?
I try
TreeView.SetFocus Node
but my treeview didnt open 
|
|
|
|