Question

VF输入数据后怎么保存

Answer 1

以有文件名的文件，输入数据后，关闭VF的相应 窗口自动保存 ，如没有文件名，关闭VF的相应 窗口 ，需要输入文件名后，自动 保存

Answer 2

自定义一个 mytextbox 类，继承于 textbox，可预先在各事件中编写好处理代码，动态生成 grid 列对象时替换原 text1 对象，下面是说明方法的简单示例：
clear
close databases
use 你要编辑的表
local oform as form
oform = newobject( 'myform' )
oform.show()
read events
define class myform as form
showwindow = 1
autocenter = .t.
allowoutput = .f.
procedure init
local ocol as column
this.newobject( 'grd', 'grid' )
this.grd.columncount = 5 && grid 列在这里动态生成
for each ocol in this.grd.columns
ocol.removeobject('text1') && 替换原 text1 对象
ocol.newobject('text1', 'mytext')
ocol.currentcontrol = 'text1'
endfor
this.grd.visible = .t.
endproc
procedure queryunload
clear events
endproc
enddefine
* 自定义的 textbox 类，你在这里预先定义各事件要执行的代码
define class mytext as textbox
procedure keypress
lparameters ncode, nshiftctrl
? ncode, nshiftctrl
* 你可以在这里判断到 ncode = 13 时发 tableupdate 命令
* 也可以在下面两个事件中发 tableupdate 命令，具体应用
* 地点由你的业务逻辑来决定
endproc
procedure lostfocus
? this.parent.name + ' lostfocus.'
endproc
procedure valid
? ' valid event raised.'
endproc
enddefine

Answer 3

关闭窗口自动保存。

或ctrl+w保存