foxpro-grid-controls-Other-Association

今天做foxpro的grid表格的时候用到了当前记录号,与lable标签进行关联,还有其他的像姓名要与edit关联

由于以前没有用过这个就今天找到的方法做个记录,已被后用,也做个有心人,

其实这个实现起来非常的简单就是在grid表格的AfterRowColChange事件中添加代码

我的代码如下:

LPARAMETERS nColIndex &&默认带的代码
thisform.label1.caption=allt(str(recno()))   &&自己添加显示当前记录数的label标签
thisform.text1.value= xm&& 自己添加的学生当前记录姓名的text控件

这里我们还可以发挥一下对当前记录进行着色操作

AfterRowColChange事件中添加如下代码:

dqjl=allt(str(recno()))

this.setall(“dynamicbackcolor”,’IIF(recno()=&dqjl,RGB(255,255,0),RGB(255,255,255))’)    this.setall(“dynamicforecolor”,’IIF(recno()=&dqjl,RGB(255,0,255),RGB(0,0,0))’)

this.refresh

第一句:通过Recno()函数获最表格中的被选中记录的记录号(即当前记录),然后将其转为字符存于变量DQJL中。

第二句:通过表格的SETALL方法设置表格中选中记录的背景色(即表格的dynamicbackcolor属性)。这里通过IIF()函数来进行设置,即如果记录号等当前记录,将其背景色设为黄色,否则设为白色。

第三句:通过表格的SETALL方法设置表格中选中记录的前景色(即表格的dynamicforecolor属性)。也是通过IIF()函数来进行设置,即如果记录号等当前记录,将其前景色设为紫色,否则设为黑色。

注意代码中最后一句刷新表格命令是不可缺少的,不然当从一条记录移到别一条记录时,前一条着色的记录就不会还原成原来的颜色

我的效果如下

 

 » 本站地址:http://www.gomoth.com

标签: