afterRowcolchange 中怎样设置代码
各位师付在表格的过程afterRowcolchange中怎样设置代码才能在表中显示不同颜色的行?要求:当字段fh和gc和cw为空字符时显示兰色, 当gc和cw为空字符时显示绿色, 当cw为空时显示红色。
能否安照我的字段名帮我写一下代码???, 急!!!
希望得到帮助,先谢了
表:gyd.dbf
表字段名为: fh , gc , cw , ...其他
程序代码:* 用颜色显示不同分数的行
PUBLIC oForm
oForm = NEWOBJECT("Form1")
oForm.Show
Return
DEFINE CLASS form1 AS form
DoCreate = .T.
AutoCenter = .T.
Caption = "Form1"
Name = "form1"
ADD OBJECT grid1 AS grid WITH ;
Height = 228, ;
Left = 12, ;
Top = 12, ;
Width = 348, ;
Name = "Grid1"
PROCEDURE Init
* 生成测试临时数据表
Create Cursor Cj (编号 C(4),总分 N(3))
=Rand(-1)
For lnI=1 To 50
Insert Into Cj Values (Padl(lnI,4,"0"),Rand()*100)
EndFor
* 结束
Go Top
With ThisForm.Grid1
.RecordSource="Cj"
.SetAll('DynamicBackColor','Iif(总分>=90,Rgb(255,0,0),Iif(Between(总分,60,89),Rgb(0,128,0),Rgb(255,0,255)))','Column')
EndWith
ENDPROC
ENDDEFINE
