主题：模式窗口 绑定表 afterload事件

If Tables("person").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    MessageBox.Show("基本信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

If Tables("history").Current isnot nothing andalso Tables("history").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
    MessageBox.Show("附加信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If