Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
WriteExpression without the =
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
WriteExpression without the =
Divers
Thread ID:
01266346
Message ID:
01266346
Vues:
61
Is there a way to have the WriteExpression not add the equal sign (=)? The following strips out the controlsource info set by the VFP builder when I drag&drop columns from VFP tables. I remove the alias and store the column name to the cControlSource property. This works but it adds the = in front of the column name which I don't want. Any ideas?
LOCAL aControl[1]
IF ASELOBJ(aControl) = 0
  IF ASELOBJ(aControl, 1) = 0
    RETURN
  ENDIF
ENDIF

FOR EACH loControl IN aControl[1].CONTROLS
  IF PEMSTATUS(loControl,'ControlSource',5)
    lnStart = AT('.',loControl.CONTROLSOURCE)+1
    lcSource = SUBSTR(loControl.CONTROLSOURCE,lnStart)
    loControl.WRITEEXPRESSION('cControlSource',lcSource)
    loControl.RESETTODEFAULT('ControlSource')
  ENDIF
ENDFOR
Heavy Metal Pedal - click with care
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform