grid记录标识
如何实现点击按钮上一条,下一条,并在grid中用颜色进行相应指示??
我用了
afterrowchange
thisform.cur_recn=recn()
this.setall( "dynamicbackcolor ", "iif(this.activerow=recno(),rgb(255,10,10),rgb(255,255,255)) ", "column ")
gnActiveRec = RECNO()
THIS.Refresh
button "上一个 "
thisform.grid1.setfocus
if recno() <> 1
skip -1
thisform.refresh
else
messagebox( "已经是第一条记录 ", "信息提示! ")
endif
button "下一个 "
if eof()
messagebox( "已经是最后一条记录 ", "信息提示! ")
else
skip 1
thisform.refresh
endif
但是点击下一个,那个三角的标记还是在原处,并且只能跳转到标记记录的下一个记录,上一个也是这样的情况,请问各位大侠如何解决阿~~
[解决办法]
如果是VFP6:
在GRID的AfterRowColChange事件中，写入如下代码
LPARAMETERS nColIndex && 系统代码
SELECT (THIS.RecordSource)
Mcurrec=ALLTRIM(STR(RECNO())) && 获取当前所在记录号（行）
This.Setall( "DynamicBackColor ", 'IIF(RECNO()=&Mcurrec.,RGB(182,202,234),RGB(255,255,255)) ', "COLUMN ") && 设置当前行背景色，满足条件为非白色，不满足为白色
This.Refresh && 这个刷新必须要，不然不满足条件的记录所显示的高亮显示就不会退去
