求助:DBF表的某一行可以全部改变底色吗?如第一行的底色变为淡蓝色。
求助:DBF表的某一行可以全部改变底色吗?如第一行的底色变为淡蓝色。
數據是不會變色的,界面才會變色。DBF表是數據。也就是說,這取決於你用什麽界面來顯示數據!
提問要準確才好。
程序代码: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.
注:原作者为梅子论坛的一位狐友