求教,关于表格中移动的问题
在表格中切换单元格有2种方式,一种是用键盘的上下左右键,一种是鼠标直接点到某个单元格,我想实现的效果是鼠标点击单元格后与用键盘的上下左右键的效果一样,但是我总是达不到效果,我试了好几种代码,都不行,另外,我的表格在表单打开的时候就绑定了数据源,数据源是数字型的。我在text1的click事件中用的代码一是:this.setfocus 代码二是:程序代码:
LOCAL fs,n myvalue=this.value DO case case TYPE('myvalue')='C' THIS.SELSTART=0 THIS.SELLENGTH=LEN(ALLTRIM(myvalue)) case TYPE('myvalue')='N' fs=FONTMETRIC(6,this.FontName,this.FontSize)+FONTMETRIC(16,this.FontName,this.FontSize) fs=fs/2 n=round(this.Width/fs,0) THIS.SELSTART=n-LEN(STR(myvalue)) THIS.SELLENGTH=LEN(STR(myvalue)) ENDCASE