主题：求助：主表变化事件

CurrentTableChanged事件

static ptable As Table = Nothing

If ptable IsNot Nothing Then
    If CurrentTable.name <> ptable.name AndAlso ptable.Form IsNot Nothing AndAlso ptable.DataTable.HasChanges Then
        msgbox(ptable.name & "未保存")
        ShowAppWindow(ptable.form.Text,1)
    Else
        ptable = CurrentTable
    End If
Else
    ptable = CurrentTable
End If

 上面的代码，是窗口与窗口之间才有效的啊。我测试没问题。