troubleshooting Question

Foxpro 7.0 Programatically identify all control sources for controls on form(Continued)

Avatar of FFNOKC
FFNOKCFlag for Afghanistan asked on
FoxPro
2 Comments1 Solution376 ViewsLast Modified:
This is a continuation from the last question with the same title. Pcelba posted a solution which covered pageframes, but one of the forms has a 4-page tabbed pageframe. This method will blow up because there is no "controls" property for this type of frame.

I was hoping someone could modify the following code to allow for Pages within a tabbed pageframe.


LPARAMETERS loContainer

IF loContainer.BaseClass = 'PageFrame'
  FOR EACH loControl IN loContainer.Pages FOXOBJECT
    THISFORM.ShowCS(loControl)
  ENDFOR
ELSE
 **error happens below
  FOR EACH loControl IN loContainer.Controls FOXOBJECT
    IF INLIST(loControl.BaseClass, 'Container', 'Pageframe', 'Page')
      THISFORM.ShowCS(loControl)
    ELSE
      IF loControl.BaseClass <> 'Label'
        *loControl.Value = loControl.ControlSource
        THISFORM.ShowDescr(loControl)
      ENDIF
    ENDIF
  ENDFOR
ENDIF
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 2 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros