原帖中，蓝版给个意见是使用AddTopTips，有一个弊端，参考代码如下：Dim cr = Tables("PopWnd").Current
If cr Is Nothing Then
e.WriteString("系统错误，未发现弹窗信息！")
Return ""
Else
Dim tcr = cr.DataRow
tcr.Load
If tcr!Tip > "" Then
wb.AddTopTips("", "toptip1", tcr!Tip + "【有新增/修改的，务必尽早提交保存数据！】").msec = 9000
tcr!Tip = Nothing
tcr.Save
End If
End If
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn2", "返回","","stfpnl.htm?bmid=" & bmh)
End With
e.WriteString(wb.Build)
这里有个弊端，如果用户不按【确定】按钮，这个提醒是无法被触发。
我的想法是，一旦表PopWnd的第一行Tip字段写入某个字符串，则在用户一碰到页面时就弹出，而不要等用户按【确定】按钮后再弹出。
避免用户因为没有看到这个提示，而一直写啊写，可是系统可能因为升级而关闭了服务，而用户写了很多的数据没有办法保存下来。
可否有对策，特此请教！
[此贴子已经被作者于2022/5/6 2:18:48编辑过]
加好友 
发短信
F6
Post By：2022/5/6 2:07:00 [只看该作者]
