VFP中Grid表格自动换行
2008-08-27 18:13:09| 分类: vfp编程类 | 标签: |字号大中小 订阅
LOCAL naccol,nrecol,nrerow
naccol=THISFORM.grid1.ACTIVECOLUMN
nrerow=THISFORM.grid1.RELATIVEROW
nrecol=THISFORM.grid1.RELATIVECOLUMN
IF naccol=THISFORM.grid1.COLUMNCOUNT.AND.RECNO()=RECCOUNT()
THISFORM.grid1.column1.SETFOCUS
APPEND BLANK
SKIP
ELSE
IF naccol=THISFORM.grid1.COLUMNCOUNT
THIS.grid1.column1.SETFOCUS
THISFORM.REFRESH
THISFORM.grid1.ACTIVATECELL(nrerow+1,THISFORM.grid1.RELATIVECOLUMN)
ELSE
IF naccol<THISFORM.grid1.COLUMNCOUNT
naccol=THISFORM.grid1.ACTIVECOLUMN
nrerow=THISFORM.grid1.RELATIVEROW
nrecol=THISFORM.grid1.RELATIVECOLUMN
IF naccol=THISFORM.grid1.COLUMNCOUNT.AND.RECNO()=RECCOUNT()
THISFORM.grid1.column1.SETFOCUS
APPEND BLANK
SKIP
ELSE
IF naccol=THISFORM.grid1.COLUMNCOUNT
THIS.grid1.column1.SETFOCUS
THISFORM.REFRESH
THISFORM.grid1.ACTIVATECELL(nrerow+1,THISFORM.grid1.RELATIVECOLUMN)
ELSE
IF naccol<THISFORM.grid1.COLUMNCOUNT