Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Set readonly depending on conditions
Message
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Title:
Set readonly depending on conditions
Miscellaneous
Thread ID:
00380784
Message ID:
00380784
Views:
48
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
Next
Reply
Map
View

Click here to load this message in the networking platform