Articles in this section
Category / Section

How to find whether a row in the GridGroupingControl is expanded or collapsed through test script code?

1 min read

 

The helper functions such as IsGroupExpanded, IsRecordExpanded will be helpful in knowing these status. The other related functions are IsGroupRow and IsRecord, helps to find whether a row is a record row or a caption row.

VB

 

SwfWindow("GridGroupingControl").Move 405,287

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 4,"parentID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandRecord 4

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandRecord 10

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").MouseDown 6,"Name","Left"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").GroupBy "ChildTable","Name","Add"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandGroup 9

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 11,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 13,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").ExpandGroup 8

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 8,"childID"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCurrentCell 10,"Name"

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 80,18

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 84,18

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 84,18

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetScrollPosition 85,18

SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").SetCellData 10,"Name","ChildName0_Modified"

If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupRow(8) Then

 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupExpanded(8) Then

  MsgBox "Row 8 is found to be a Caption and is expanded"

 Else

    MsgBox "Row 8 is found to be a Caption and is Collapsed"

End If

End If

If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsRecord(10) Then

 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsRecordExpanded(10) Then

  MsgBox "Row 10 is found to be a Record and is expanded"

 Else

    MsgBox "Row 10 is found to be a Record and is Collapsed"

End If

End If

 SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").CollapseGroup 5

If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupRow(5) Then

 If SwfWindow("GridGroupingControl").SwfObject("gridGroupingControl1").IsGroupExpanded(5) Then

  MsgBox "Row 5 is found to be a Caption and is expanded"

 Else

    MsgBox "Row 5 is found to be a Caption and is Collapsed"

 End If

End If

Did you find this information helpful?
Yes
No
Help us improve this page
Please provide feedback or comments
Comments (0)
Please sign in to leave a comment
Access denied
Access denied