vfp在GRID中如何实现自动换行
1个回答
展开全部
在Text Keypress事件内激活下一列，类似如下：
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13
tt=fsd.终止题
co1=thisform.grid1.activecolumn
ro1=thisform.grid1.activerow
if reccount()<=ro1
appe blank
repla fsd.起始题 with tt+1
endif
&&this.parent.parent.column2.setfocus
thisform.grid1.activatecell(ro1+1,2)
thisform.refresh
endif
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=13
tt=fsd.终止题
co1=thisform.grid1.activecolumn
ro1=thisform.grid1.activerow
if reccount()<=ro1
appe blank
repla fsd.起始题 with tt+1
endif
&&this.parent.parent.column2.setfocus
thisform.grid1.activatecell(ro1+1,2)
thisform.refresh
endif
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
