主题：[求助]网页统计数据更新

老师，有以下网页：

此主题相关图片如下：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 & "") 没有传送成功或者其他什么原因，又不懂了啊！

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

老师，是这样的代码吗？

老师，能够显示dlg1对话框，但是数据统计控件不更新？

 

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

老师，还是不行，提交数据后出现以下错误：

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

 

点击“确定”后出现：

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

看来控件是找对了，但是显示内容怎么是“0”？

 

第三次登陆显示：

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

完美解决，谢谢老师的帮忙！太深奥了，自己还得努力。