表格自动保存问题

13968559581

假如我一个表，像EXCEL表格一样使用，这里就涉及到保存的问题。

我想实现在员工操作的过程中，定时保存，比如说每隔半分钟，或1分钟，能自动保存的功能。
或者说员工在操作的时候，不自动保存，当系统监测到员工停止编辑已经超过 1分钟了，这个时候自动保存
这样就能保证员工的数据不会丢失（自动保存的时候，能保留修改日志），这两种效果分别怎么实现。

admin

'遍历当前项目所有打开的窗体，并保存所有表
For Each frm As SmForm In Proj.OpenedForms
        If Not frm.IsSystemForm Then
                '保存当前窗口中的所有表
                frm.Grids.Save()
        End If
Next

'如果想保存指定窗口中的指定表
Proj.OpenedForms("窗体名称").Grids("表名称").Save()

'定时任务只能在【计划管理】模块中做，因为这个模块中可以正常访问窗体控件。
'【任务管理】中的定时任务尽量不要访问窗体控件，有可能会出现意想不到的错误。

'获得自从用户上次鼠标键盘输入一共过去了多少秒。可以考虑通过这个方法检测用户多长时间没有动电脑了，然后再结合保存命令
Dim intTime As UInteger=Proj.GetLastInputTime()

'还可以通过在表ColDataChanged或者CellChanged事件中记录一个时间，然后用定时任务去判断时间是否超过一个值
复制代码