| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 913 人关注过本帖
标题:GRID颜色问题!
只看楼主 加入收藏
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
结帖率:93.88%
收藏
已结贴  问题点数:10 回复次数:14 
GRID颜色问题!
图片附件: 游客没有浏览图片的权限,请 登录注册

我想实现,当开奖号为对子的时候,字段零到九,相应的数字变成红色,请教怎么实现
如图:155,把字段五,当中的⑤变成红色
      232,把字段二,当中的②变成红色,以此类推
是针对行,不是列

程序代码:
FOR i=1 TO FCOUNT()
    zd=FIELD(i)
    og.columns(i).header1.alignment=2
    IF BETWEEN(i,11,FCOUNT())
        og.columns(i).header1.caption=RIGHT(FIELD(i),1)
    ENDIF 
    DO CASE
        CASE BETWEEN(i,2,4) OR INLIST(i,9)
            og.columns(i).DynamicBackColor="Icase(lx=1,RGB(255,0,0),lX=2,RGB(255,35,255),lX=3,RGB(20,128,255),lX=4,RGB(20,128,20),lX=5,RGB(255,128,20),RGB(255,255,255))"
        CASE BETWEEN(I,11,20) OR BETWEEN(I,31,40) OR BETWEEN(I,51,60)
            og.columns(i).DynamicBackColor="IIF(BETWEEN(&zd,'0','9'),RGB(255,0,0),RGB(255,255,255))"        
            og.columns(i).DynamicForeColor="IIF(BETWEEN(&zd,'0','9'),RGB(255,255,255),RGB(192,192,192))"        
            og.columns(i).DynamicAlignment="IIF(BETWEEN(&zd,'0','9'),2,3)"
            og.columns(i).DynamicFontSize="IIF(BETWEEN(&zd,'0','9'),12,9)"
            og.columns(i).DynamicFontBold="IIF(BETWEEN(&zd,'0','9'),.T.,.F.)"
        CASE BETWEEN(I,21,30) OR BETWEEN(I,41,50)
            og.columns(i).DynamicBackColor="IIF(BETWEEN(&zd,'0','9'),RGB(0,0,255),RGB(255,255,255))"        
            og.columns(i).DynamicForeColor="IIF(BETWEEN(&zd,'0','9'),RGB(255,255,255),RGB(192,192,192))"        
            og.columns(i).DynamicAlignment="IIF(BETWEEN(&zd,'0','9'),2,3)"
            og.columns(i).DynamicFontSize="IIF(BETWEEN(&zd,'0','9'),12,9)"
            og.columns(i).DynamicFontBold="IIF(BETWEEN(&zd,'0','9'),.T.,.F.)"
    ENDCASE
ENDFOR

由于基础不是太好,上面这段代码,看的不是太懂,请教各位大神,帮我解决一下
搜索更多相关主题的帖子: BETWEEN CASE 字段 GRID RGB 
2023-03-23 10:17
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10541
专家分:42927
注 册:2014-5-20
收藏
得分:1 
五彩缤纷,有点眼花。
增加一个列颜色属性字段,column的DynamicBackColor按“颜色属性”设定就OK。
2023-03-23 10:53
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
以下是引用吹水佬在2023-3-23 10:53:23的发言:

五彩缤纷,有点眼花。
增加一个列颜色属性字段,column的DynamicBackColor按“颜色属性”设定就OK。

好像明白了,我先试一下
2023-03-23 11:11
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
SELECT 本地数据
zjl=RECCOUNT()
FOR i=1 TO zjl
GO i
SCATTER TO b
c1=b(1)
c2=b(6)
a=left(c2,1)&&取左边第一位获取百位
shi=LEFT(c2,2)&&取前两位
b=RIGHT(shi,1)&&取右边第一位获取十位
c=RIGHT(c2,1)&&个位
IF a=b
IF a='0'
thisform.pageframe1.page1.pageframe1.page1.grid1.columns(i).DynamicforeColor="RGB(255,0,0)"&&开奖号码
ENDIF
ENDIF
ENDFOR

报错columns不是一个对象
2023-03-23 12:32
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10541
专家分:42927
注 册:2014-5-20
收藏
得分:1 
这个 i 对应的是表记录数,column是表格列。
2023-03-23 12:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9803
专家分:26906
注 册:2012-2-5
收藏
得分:1 
试试OCCURS()

坚守VFP最后的阵地
2023-03-23 12:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9803
专家分:26906
注 册:2012-2-5
收藏
得分:1 
前景色可能实现不了,只有实现背景色。

坚守VFP最后的阵地
2023-03-23 13:05
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10541
专家分:42927
注 册:2014-5-20
收藏
得分:1 
参考示例
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
CREATE CURSOR tt (fc I, bc I)
INSERT INTO tt VALUES (0xff0000, 0x00ff00)
INSERT INTO tt VALUES (0x00ff00, 0x0000ff)
INSERT INTO tt VALUES (0x0000ff, 0xff0000)
GO TOP 
_screen.AddObject("grid1","grid")
FOR EACH col IN _screen.grid1.columns
    col.DynamicForeColor="tt.fc"
    col.DynamicBackColor="tt.bc"      
ENDFOR
_screen.grid1.Visible = .t.
MESSAGEBOX("关闭")
CLOSE TABLES ALL 
CLEAR ALL
2023-03-23 14:08
hytizj023
Rank: 1
等 级:新手上路
帖 子:188
专家分:7
注 册:2023-3-2
收藏
得分:0 
以下是引用sdta在2023-3-23 12:58:01的发言:

试试OCCURS()

thisform.pageframe1.page1.pageframe1.page1.grid1.columns(8).DynamicforeColor="RGB(255,0,0)"
现在的问题是,我不知道怎么改颜色,不是对比数据
上面这个代码,把整个列都改了颜色,我只是改对子,不是对子我不改颜色
2023-03-23 15:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9803
专家分:26906
注 册:2012-2-5
收藏
得分:2 
我明白,你要判断出号码是组三或豹子才改变号码(重复的号码)的颜色。

坚守VFP最后的阵地
2023-03-23 15:39
快速回复:GRID颜色问题!
数据加载中...
 
   



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

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