Foxpro Example: Scan Through Cursor Set Label Properties

[ShiftPoint]

Quick example of what I came up with to scan through a cursor "lcCursor" and set properties for various labels.

Code: Select all

      lcScanCount = 1

      SELECT (m.lcCursor)
      IF RECCOUNT() > 0
         SCAN
            lcPropSet = "lblContact"+ALLTRIM(STR(lcScanCount))+".Visible = .T."
            Thisform.&lcPropSet
            lcPropSet = "lblContact"+ALLTRIM(STR(lcScanCount))+".Caption =ALLTRIM("+ m.lcCursor + [.name]+")"
            Thisform.&lcPropSet
            
            lcPropSet = "lblHome"+ALLTRIM(STR(lcScanCount))+".Visible = .T."
            Thisform.&lcPropSet
            lcPropSet = "lblHome"+ALLTRIM(STR(lcScanCount))+".Caption ="+ m.lcCursor + [.homephone]
            Thisform.&lcPropSet
            
            lcPropSet = "lblWork"+ALLTRIM(STR(lcScanCount))+".Visible = .T."
            Thisform.&lcPropSet
            lcPropSet = "lblWork"+ALLTRIM(STR(lcScanCount))+".Caption ="+ m.lcCursor + [.workphone]
            Thisform.&lcPropSet
            
            lcPropSet = "lblCell"+ALLTRIM(STR(lcScanCount))+".Visible = .T."
            Thisform.&lcPropSet
            lcPropSet = "lblCell"+ALLTRIM(STR(lcScanCount))+".Caption ="+ m.lcCursor + [.cellphone]
            Thisform.&lcPropSet
            
            lcPropSet = "lblRelation"+ALLTRIM(STR(lcScanCount))+".Visible = .T."
            Thisform.&lcPropSet
            lcPropSet = "lblRelation"+ALLTRIM(STR(lcScanCount))+".Caption ="+ m.lcCursor + [.relation]
            Thisform.&lcPropSet
            
            lcScanCount = lcScanCount + 1
            
            IF lcScanCount > 3
               EXIT
            ENDIF
            
         ENDSCAN
      ENDIF    
      lcScanCount = 0