Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Grid colore
Message
De
16/06/2009 03:30:19
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Grid colore
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01406281
Message ID:
01406281
Vues:
115
hi all,
i try as below to change colore of records have field flage=1, but not works

*thisform.pageframe1.page1.Grid1.SetAll('DynamicBackColor','IIF(TAliascursor4.flage=1,rgb(255,200,200),rgb(255,255,255))','column')
*at timer event
SELECT trans1
WITH ThisForm.pageframe1.page1
  IF EMPTY(.text4.value)
    .Grid1.visible=.f.
    .command1.visible=.f.
  ELSE
   WITH .Grid1
      .visible=.t.
      SELECT  TAlias1.time1,TAlias1.date1,TAlias1.roomno,TAlias1.place1,TAlias2.mobile,TAlias2.tel,TAlias2.empname, TAlias1.discerror,TAlias1.sno,TAlias1.mark1,TAlias1.remark1,TAlias1.remark2,TAlias1.WFLOWNO,TAlias1.flage ;
        FROM trans1 TAlias1, emp1 TAlias2 ,pasw TAlias3 ;
       WHERE   Alltrim(UPPER(TAlias3.pasw)) == Alltrim(UPPER(thisform.pageframe1.page1.text2.value)) AND TAlias1.empno = TAlias2.empno ;
         AND TAlias1.fexerno=val(ThisForm.pageframe1.page1.text4.value) AND mark1=0 AND TAlias1.fexerno = TAlias3.empno;
    ORDER BY date1,sno ;
        INTO cursor TAliascursor4
     *********************************************   
        thisform.pageframe1.page1.Grid1.SetAll('DynamicBackColor','IIF(TAliascursor4.flage=1,rgb(255,200,200),rgb(255,255,255))','column')
*******************************************************
thanks
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform