1、在Form的Load事件中定义几个变量,代码如下:
PUBLIC cGRNO,cGRcol,nowrecno
2、在Form的Init事件中写如下代码:
cGRcol=0
cGRNO = RECNO()
for i=1 to 10
txtback1="thisform.grid1.column"+allt(str(i))+".text1.backcolor"
&txtback1=rgb(181,232,182)
txtback2="thisform.grid1.column"+allt(str(i))+".Dynamicbackcolor"
&txtback2="IIF(RECNO()=cGRNO,rgb(255,255,185),RGB(255,255,255))"
&txtback2="IIF(RECNO()=cGRNO,rgb(181,232,182),RGB(255,255,255))"
endf
thisform.grid1.refresh
3、在Form的AfterRowColChange事件中写如下代码:
LPARAMETERS nColIndex &&系统自带
cGRNO = RECNO()
if cGRcol>0 AND cGRcol!=thisform.grid1.activecolumn
Pa=allt(str(thisform.grid1.activecolumn))
txtback1="thisform.grid1.column"+Pa+".Dynamicbackcolor"
&txtback1="rgb(181,232,182)"
txtback2="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"
&txtback2="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"
&txtback2="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"
endi
cGRcol=thisform.grid1.activecolumn
thisform.grid1.refresh()
4、在删除按钮中写入如下代码:
nowrecno=RECNO()
IF RECCOUNT()>0
IF nowrecno<RECCOUNT()
GO nowrecno
DELETE
COPY TO abc
ZAP
APPEND FROM abc FOR NOT DELETED()
GO nowrecno
ELSE
GO nowrecno
DELETE
COPY TO abc
ZAP
APPEND FROM abc FOR NOT DELETED()
GO TOP
ENDIF
cGRNO = RECNO()
if cGRcol>0 AND cGRcol!=thisform.grid1.activecolumn
txtback2="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"
&txtback2="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"
&txtback2="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"
endi
cGRcol=thisform.grid1.activecolumn
thisform.grid1.refresh()
ENDIF
1、在Form的Load事件中定义几个变量,代码如下:
PUBLIC cGRNO,cGRcol,nowrecno
2、在Form的Init事件中写如下代码:
cGRcol=0
cGRNO = RECNO()
for i=1 to 10 &&10表示你Grid1的列数
txtback="thisform.grid1.column"+allt(str(i))+".text1.backcolor"
&txtback=rgb(181,232,182)
txtback="thisform.grid1.column"+allt(str(i))+".Dynamicbackcolor"
&txtback="IIF(RECNO()=cGRNO,rgb(255,255,185),RGB(255,255,255))"
&txtback="IIF(RECNO()=cGRNO,rgb(181,232,182),RGB(255,255,255))"
endf
thisform.grid1.refresh
3、在Form的AfterRowColChange事件中写如下代码:
LPARAMETERS nColIndex &&系统自带
cGRNO = RECNO()
if cGRcol>0 AND cGRcol!=thisform.grid1.activecolumn
txtback="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"
&txtback="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"
&txtback="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"
endi
cGRcol=thisform.grid1.activecolumn
thisform.grid1.refresh()
4、在删除按钮中写入如下代码:
nowrecno=RECNO()
IF RECCOUNT()>0
IF nowrecno<RECCOUNT()
GO nowrecno
DELETE
COPY TO abc
ZAP
APPEND FROM abc FOR NOT DELETED()
GO nowrecno
ELSE
GO nowrecno
DELETE
COPY TO abc
ZAP
APPEND FROM abc FOR NOT DELETED()
GO TOP
ENDIF
cGRNO = RECNO()
if cGRcol>0 AND cGRcol!=thisform.grid1.activecolumn
txtback="thisform.grid1.column"+allt(str(cGRcol))+".Dynamicbackcolor"
&txtback="IIF(RECNO()=cGRNO,RGB(255,255,185),RGB(255,255,255))"
&txtback="IIF(RECNO()=cGRNO,RGB(181,232,182),RGB(255,255,255))"
endi
cGRcol=thisform.grid1.activecolumn
thisform.grid1.refresh()
ENDIF