切换选项卡页面事件

Sub DBEngine_EventUserEvent(strEventName, strInputXML)
   if strEventName = "TabCtrlCanChange" And strInputXML = "基本情况" then
    if DBEngine.IsNewRecord = true then
      MsgBox("请先保存“基本情况”的数据")
      DBEngine.SetUserEventReturnValue("0")
    End if
  End if
End Sub