主题：如何在共有窗口的页面侧出现信息提示

 Dim count As Integer = DataTables("表A").Compute("count(_Identify)", "审批 = false")

 msgbox(count)

具体，做实例发上来看看。