让brow 整行变色的方法 - sdta的博客

作者在 2016-01-21 16:57:05 发布以下内容

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