老师，有以下网页：

此主题相关图片如下：1.png

确定按钮代码如下：
  With wb.AddDialog("", "dlg1", "提示", "登记成功！疫情防控,一起加油！！") \'登记成功提示框
            .AddButton("btnOK", "确定").Attribute =  "on click=\'f orm1.reset()\'"
   End With

此主题相关图片如下：2.png

页脚代码如下：

 Dim cnt As Integer
 cnt = DataTables("登记").SQLCompute("Count(序号)")
With wb.AddPageFooter("", "pf2", "成功登记" & cnt & "位，技术支持：18093097299")
        .Attribute = "style=\'position: static;\'"
End With

添加成功后如何能够清空表单并更新统计数据？麻烦老师指点一二，我实在是搞不明白了，谢谢！

引用JS代码如下：

function myfunction(){
    var result = submitAjaxForm(\'form1\',\'\',false);
    if (result ==\'OK\') {show(\'dlg1\')}
    else {showDialog(\'dlg2\',\'错误\',result)}
}

老师，不是清空所有录入的内容，而是清空已经提交成功后原来页面表单数据，这个功能dlg1对话框确定按钮的代码.AddButton("btnOK", "确定").Attribute =  "on click=\'f orm1.reset()\'"能够完成，

刚才测试了JS代码，提交时dlg1一闪后直接刷新页面了，统计数据是更新了，但是不显示dlg1对话框（不是预期），能否在dlg1对话框确定按钮中添加更新代码（最好是不刷新页面）？谢谢！

老师，关键是还需要对统计数据进行更新，怎么办？

能够将 "on click=\'f orm1.reset()\'" 

修改成直接刷新页面（location.reload(true)）的代码？

谢谢！

老师，思路我懂了，但是修改后代码不执行：

返回统计信息代码如下：

 Dim cnt1 As Integer
 cnt1 = DataTables("登记").SQLCompute("Count(序号)")
 e.WriteString("OK" & cnt1 & "") \'返回增加成功消息

JS代码如下：

function myfunction(){
    var result = submitAjaxForm(\'form1\',\'\',false);
    if (result.substring(0,2) ==\'OK\') {
document.getElementById("pf2").innerHTML = "累计登记" & result.substring(3) & "人，技术支持：18093097299"
show(\'dlg1\')
}
    else {showDialog(\'dlg2\',\'错误\',result)}
}

数据统计控件代码如下：

With wb.AddPageFooter("", "pf2", "累计登记" & cnt & "人，技术支持：18093097299")
            .Attribute = "style=\'position: static;\'"
 End With

所有数据成功提交到数据库，但是不出现dlg1对话框，数据统计控件内容也不更新，感觉("OK" & cnt1 & "") 没有传送成功或者其他什么原因，又不懂了啊！