Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Set readonly depending on conditions
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Titre:
Set readonly depending on conditions
Divers
Thread ID:
00380784
Message ID:
00380784
Vues:
49
Hi everyone,

I'm having trouble setting Column.ReadOnly depending on some conditions :( Is it doable at all?

This is my code in grid.refresh method:
if thisform.editmode
   .columnAPN.DynamicBackColor="IIF(APNED='"+APN_DUPL+"' OR APNED='"+APN_BAD+"'," + CB_EDON + "," +CB_NONED+")" && Green
   .columnMapNum.DynamicBackColor=  "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + PCB_EDON + "," +CB_NONED+")" && Red
   .columnWardNum.DynamicBackColor= "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + PCB_EDON + "," +CB_NONED+")" && Red
   .columnLotNum.DynamicBackColor=  "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + PCB_EDON + "," +CB_NONED+")" && Red
   .columnBlockNum.DynamicBackColor="IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + PCB_EDON + "," +CB_NONED+")" && Red
   .columnUnitNum.DynamicBackColor= "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + PCB_EDON + "," +CB_NONED+")" && Red
   .columnAPN.ReadOnly=iif(APNED=APN_DUPL OR APNED=APN_BAD,.t.,.f.)
 else
   .columnAPN.DynamicBackColor="IIF(APNED='"+APN_DUPL+"' OR APNED='"+APN_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnMapNum.DynamicBackColor=  "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnWardNum.DynamicBackColor= "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnLotNum.DynamicBackColor=  "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnBlockNum.DynamicBackColor="IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnUnitNum.DynamicBackColor= "IIF(Parsed='"+ PARSE_DUPL+"' OR PARSED='"+PARSE_BAD+"'," + CB_EDOFF + "," +CB_NONED+")" && Gray
   .columnAPN.ReadOnly=.t.
endif
Thanks in advance.
If it's not broken, fix it until it is.


My Blog
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform