>>DO CASE >> CASE this.caption = 'Select All Checks' >> this.caption = 'Unselect All Checks' >> STORE 0 TO lnCount, lnTotal >> FOR lnX = 1 TO thisform.lstSelectChecks.ListCount >> thisform.lstSelectChecks.Selected(lnX) = .T. >> lnCount = lnCount + 1 >> lcidchec = thisform.lstSelectChecks.ListItem[lnX,7] >> SELECT picktmp >> LOCATE FOR cidchec == lcidchec >> IF FOUND() >> lnTotal = lnTotal + picktmp.nAmount >> ENDIF >> ENDFOR >> >> CASE this.caption = 'Unselect All Checks' >> this.caption = 'Select All Checks' >> STORE 0 TO lnCount, lnTotal >> FOR lnX = 1 TO thisform.lstSelectChecks.ListCount >> thisform.lstSelectChecks.Selected(lnX) = .F. >> ENDFOR >>ENDCASE>>