添加一个textbox控件,msflexgrid控件,美安一次回车键动态改变文本库框的位置,然后是文本框获得焦点,接着将文本框中的内容赋给msflexgrid的相应的单元格,然后保存,(成批记录保存)
代码如下:
private sub form_load()
me.text1.visuable=false
end sub
private sub movetext(byval i as integer,byval j as integer)
me.text1.left=me.mmsflexgrid1.left+me.msflexgrid1.colpos(i)
me.text1.top=me.msflextrid1.top+me.msflexgrid1.rowpos(i)
me.text1.visable=true
me.text1.setfocus
end sub
private sub text1_change()
me.msflexgrid1.text=me.text1.text
end sub
private sub text1_keypress()
if ascii=13 then
……
movetext
……
end if
end sub