求助: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.注:原作者为梅子论坛的一位狐友