这个地方是单击表头排序那个类出错了。这个我也是从本站高人处抄来的。实在不知错在哪里。我的vfp9,在十几台电脑上运行都没问题。
以下是引用丁春秋yxp在2018-1-19 12:14:51的发言:
#5吹水佬昨晚 20:07
回复 4楼 丁春秋yxp
可以在Grid1.Column.Text的GotFocus事件中处理Grid1.Column.Text的BackColor和SelectedBackColor
这个搞不定。
#5吹水佬昨晚 20:07
回复 4楼 丁春秋yxp
可以在Grid1.Column.Text的GotFocus事件中处理Grid1.Column.Text的BackColor和SelectedBackColor
这个搞不定。
要自定义Text类或绑定Text事件,有点复杂。
也可以这样试试:
CREATE CURSOR tt (f1 I, f2 I)
FOR i=1 TO 10
INSERT INTO tt VALUES (i, i*2)
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 As Form
Add Object Grid1 As Grid
nRecno = 0
PROCEDURE Grid1.AfterRowColChange(nColIndex)
thisform.nRecno = RECNO()
FOR EACH oColumn IN this.Columns
oColumn.DynamicForeColor = [IIF(RECNO()==thisform.nRecno, 0xff, 0x00)]
oColumn.Text1.ForeColor = IIF(RECNO()==thisform.nRecno, 0xff, 0x00)
ENDFOR
this.setfocus
ENDPROC
ENDDEFINE