MainTableChanging事件:
http://www.foxtable.com/help/topics/1612.htm
If DataTables(e.OldTableName).HasChanges Then
If MessageBox.Show(CExp("表【{0}】已经更改,是否保存?",e.OldTableName), "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables(e.OldTableName).Save
Else
e.Cancel = True
End If
End If