让brow 整行变色的方法

表格(Grid)控件 | 2016-01-21 16:57:05 | 阅读 2643 次 | 评论(0)
CREATE CURSOR 数据表 (选择 L, 区号 c(10), 城市 c(10) )
INSERT INTO 数据表 VALUES (.T.,'021','上海')
INSERT INTO 数据表 VALUES (.F.,'010','北京')
INSERT INTO 数据表 VALUES (.T.,'020','广州')
GO TOP
BROWSE NAME GrdCur NOWAIT
GrdCur.column1.width = 50
GrdCur.column2.width = 100
GrdCur.column3.width = 100
GrdCur.GridLineColor= RGB(128,128,128)
GrdCur.column1.AddObject('CheckBox1','CheckBox')
GrdCur.column1.CurrentControl='CheckBox1'
GrdCur.column1.CheckBox1.Visible = .T.
GrdCur.column1.CheckBox1.Caption = ''
GrdCur.column1.sparse = .F.
GrdCur.column1.Alignment = 2
GrdCur.column1.CheckBox1.Caption = ''
GrdCur.column1.CheckBox1.backstyle = 0
GrdCur.deletemark = .F.
GrdCur.column1.DynamicBackColor=  "iif(RECNO()=1,16708028,iif(RECNO()=2,16768511,13172735))"
GrdCur.column2.DynamicBackColor=  "iif(RECNO()=1,16708028,iif(RECNO()=2,16768511,13172735))"
GrdCur.column3.DynamicBackColor=  "iif(RECNO()=1,16708028,iif(RECNO()=2,16768511,13172735))"
GrdCur.highlightbackcolor = RGB(255,0,0)
GrdCur.highlightstyle =1
GrdCur.AllowCellSelection = .F. 
GrdCur.AutoFit
文章评论,共0条
游客请输入验证码
浏览234014次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...