让brow 整行变色的方法

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 G...
2016-01-21 16:57 | 2363次阅读 | 0评

表格控件中单元格红色选择框的设置

表格 INIT 事件代码 thisform.grid1.highlight=.f. thisform.grid1.highlightrow=.f. For i=1 to Fcount() thisform.grid1.columns(i).text1.backstyle=1 thisform.grid1.columns(i).text1.bordercolor=rgb(255,0,0) thisform.grid1.columns(i).text1.b...
2015-06-01 00:06 | 818次阅读 | 0评

VFP表格中左侧插入一列显示顺序号

* 表格控件INIT事件 THISFORM.GRID1.ADDCOLUMN(1) && 在左边插入列。 THISFORM.GRID1.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).NAME = "NewColumn" THIS.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).HEADER1.CAPTION=[序号] THISFORM.GRID1.NEWCOLUMN.CONTROLSOURCE = "PADL(RECNO(),LEN(TRANSF...
2015-03-13 17:25 | 2638次阅读 | 0评

VFP,当移动鼠标到表格某一个单元格时如何获取表格当前值

PUBLIC oForm oForm = NEWOBJECT("Form1") oForm.Show RETURN DEFINE CLASS Form1 As Form Height = 300 Width = 420 Add Object Grid1 As Grid PROCEDURE Load CREATE CURSOR TEMP (F1 C(10), F2 C(10), F3 I) IN...
2015-03-13 15:25 | 2035次阅读 | 0评

如何让表格中的最后一条记录,用特殊的字体和颜色显示

* 在表格的INIT事件中写入 This.SetAll("DynamicFontName","Iif(RECNO()=Reccount(),'黑体','宋体')","Column") This.SetAll("DynamicFontSize","Iif(RECNO()=Reccount(),16,10)","Column") This.Setall("DynamicBackColor","Iif(Recno()=Reccount(),Rgb(255,255,255),Rgb(255,0,0)","Column") ...
2015-03-13 10:21 | 582次阅读 | 0评
浏览180267次
最新评论