| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大佬一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 218 人关注过本帖
标题:求教,如何使行的背景色随数字的变化交替变化
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:495
专家分:13
注 册:2014-1-16
结帖率:87.64%
收藏
已结贴  问题点数:20 回复次数:7 
求教,如何使行的背景色随数字的变化交替变化
图片附件: 游客没有浏览图片的权限,请 登录注册
如题
搜索更多相关主题的帖子: 变化 交替 数字 背景色 
2021-10-08 17:05
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:266
帖 子:9007
专家分:23649
注 册:2012-2-5
收藏
得分:20 
下面的示例对楼主是否有帮助
程序代码:
* 用颜色显示不同分数的行
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

坚守VFP最后的阵地
2021-10-08 20:44
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:495
专家分:13
注 册:2014-1-16
收藏
得分:0 
我想到一个办法了,其实数字代表分组,我可以在表中增加1列,新列的序号笫一组是1,第二组是2,如此下去,奇数组一个颜色,偶数组一个颜色,问题是怎么根据奇偶数产生颜色呢
2021-10-08 21:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:266
帖 子:9007
专家分:23649
注 册:2012-2-5
收藏
得分:0 
iif(列1%2 =0, 颜色1,颜色2 )

坚守VFP最后的阵地
2021-10-08 21:58
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:495
专家分:13
注 册:2014-1-16
收藏
得分:0 
sdta师傅,我是这样的: thisform.grid1.SetAll('DynamicBackColor','iif(mod(组字段,2)=0,Rgb(0,128,0),Rgb(255,0,255))','Column'),非常感谢,问题解决了

[此贴子已经被作者于2021-10-9 07:16编辑过]

2021-10-09 07:14
wang3210
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2021-10-9
收藏
得分:0 
回复 4楼 sdta
我想到一个办法了,其实数字代表分组,我可以在表中增加1列,新列的序号笫一组是1,第二组是2,如此下去,奇数组一个颜色,偶数组一个颜色,问题是怎么根据奇偶数产生颜色呢
2021-10-09 17:31
laowan001
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:106
专家分:170
注 册:2015-12-30
收藏
得分:0 
回复 6楼 wang3210
5楼不是已经给出解决方案了吗?
2021-10-09 17:36
huasinstamps
Rank: 1
等 级:新手上路
帖 子:26
专家分:3
注 册:2017-6-1
收藏
得分:0 
回复 3楼 fanjinyu9108
新增的列第一组是1,第二组是2,第三组为什么不能仍是1,第四组再是2。。。这样后面的程序可以更简化一点点
5 天前 19:04
快速回复:求教,如何使行的背景色随数字的变化交替变化
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.071029 second(s), 9 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved