标题:怎样使grid控件的单元格变色
只看楼主
qdjmxin
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2014-11-7
结帖率:0
已结贴  问题点数:20 回复次数:5 
怎样使grid控件的单元格变色
请问怎样使GRID控件的某个符合条件的单元格变色,不是一行,类似EXCEL中的效果。还有就是把GRID中的TEXT文本的backcolor设置后,需要鼠标点击后才能真正看到text的背景色,怎样不点击就能显示text的背景色?
搜索更多相关主题的帖子: 背景色 EXCEL 
2016-11-04 19:59
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:7 
是不是这种效果

坚守VFP最后的阵地
2016-11-04 20:21
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:7 
楼上的看来适合
2016-11-04 22:16
lljchi
Rank: 2
等 级:论坛游民
帖 子:172
专家分:95
注 册:2016-7-21
得分:7 
回复 2楼 sdta
我想实现图中的这个效果,该怎么做呢?
2016-11-07 13:06
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
表单INIT事件代码
Create Cursor T (A1 N(4),A2 N(4),A3 N(4))
Insert Into T Values (10,100,1000)
Insert Into T Values (1000,10,100)
Insert Into T Values (100,1000,10)
Go Top
With ThisForm.Grid1
     .ColumnCount=Fcount("T")
     .RecordSource="T"
     .RecordSourceType=1
     For lnI=1 To .ColumnCount
         myField=Field(lnI)
         .Columns(lnI).DynamicForeColor="Iif(Between(&myField,10,100),Rgb(255,0,0),Rgb(0,0,0))" && 前景色
         .Columns(lnI).DynamicBackColor="Iif(Between(&myField,10,100),Rgb(0,0,255),Rgb(0,255,0))" && 背景色
     Endfor
     .Refresh
EndWith
与前面的有所不同


[此贴子已经被作者于2016-11-7 13:34编辑过]

收到的鲜花
  • lljchi2016-11-07 14:43 送鲜花  3朵   附言:我很赞同

坚守VFP最后的阵地
2016-11-07 13:32
lljchi
Rank: 2
等 级:论坛游民
帖 子:172
专家分:95
注 册:2016-7-21
得分:0 
回复 5楼 sdta
谢谢!
2016-11-07 14:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-470718-1-1.html




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

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