让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 GrdCur.column3.width = 100 GrdCur....
2016-01-21 16:57 | 阅读 3528 次 | 评论 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.borderstyle=1 thisform.grid1.columns(i)....
2015-06-01 00:06 | 阅读 1731 次 | 评论 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(TRANSFORM(RECCOUNT())),[0])"
2015-03-13 17:25 | 阅读 4836 次 | 评论 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) INSERT INTO TEMP VALUES ("ABC", "123...
2015-03-13 15:25 | 阅读 3841 次 | 评论 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 | 阅读 1260 次 | 评论 0 条
浏览376332次