- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]刷新表单的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109370)
-- 发布时间：2017/11/10 14:17:00
-- [求助]刷新表单的问题
我现在不知道怎么做刷新表单的问题，案例我已经看了，案例是一个按钮来调用的脚本，而我现在按钮已经加上了一些功能，我想在现有的按钮里同时拥有刷新表单的效果。
js：
wx.ready(function () {
document.getElementById(\'scan\').onclick = function () {
wx.scanQRCode({
needResult: 1,
scanType: [\'qrCode\',\'barCode\'],
success: function (res) {
var code = res.resultStr;
if(code.indexOf(",") >= 0){
code = code.split(",")[1];
}
document.getElementById("sptm").value = code;
setAjaxOptions(\'spxx\',\'getCounties.htm\',\'sptm\',false)
}
});
};
document.getElementById(\'btn1\').onclick = function () {
var result = submitAjaxForm(\'form1\',\'\',false);
if(result ==\'OK\'){
//location="bj.htm";
document.getElementById(\'sptm\').value=""
document.getElementById(\'spxx\').value=""
document.getElementById(\'spbm\').value=""
document.getElementById(\'spmc\').value=""
document.getElementById(\'spgg\').value=""
document.getElementById(\'scqy\').value=""
document.getElementById(\'bzdw\').value=""
document.getElementById(\'sl\').value=""
//document.getElementById(\'divtablelist\').innerHTML = result;
}
else{showDialog(\'dlg1\',\'错误\',result)}
wx.scanQRCode({
needResult: 1,
scanType: [\'qrCode\',\'barCode\'],
success: function (res) {
var code = res.resultStr;
if(code.indexOf(",") >= 0){
code = code.split(",")[1];
}
document.getElementById("sptm").value = code;
setAjaxOptions(\'spxx\',\'getCounties.htm\',\'sptm\',false)
}
});
};
});
wx.error(function (res) {
//alert(res.errMsg);
});
代码：
\'wb.InsertHTML("page1","<div id=\'divtablelist\'>") \'插入占位的DIV标签,用于动态更新练习列表
With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"商品编码","录入时间","数量","创建人"}
.Head.AddRow(nms)
Dim i As Integer = 1
For Each r As DataRow In DataTables("商品盘点").Select("创建人=\'" & e.Cookies("username") &"\'", "录入时间 desc,_Identify desc")
With .Body.AddRow(r("spbm"),r("录入时间"),r("sl"),r("创建人"))
\'.AddCell(Format(r("单价"),"#0.00"))
\'.AddCell(Format(r("日期"),"MM月dd日"))
End With
If i = 10 Then Exit For
i=i+1
Next
End With
\'wb.InsertHTML("page1","</div>") \'占位的DIV标签的结束标签
-- 发布时间：2017/11/10 14:37:00
--
你说的刷新表单是什么意思？整个页面刷新？还是跳转到哪个页面？
这个意思？
location="http://baidu.com"
-- 发布时间：2017/11/10 14:42:00
--
不是的，就是刷新我自己手动生成的那张表，就是我现在做的”扫码新增”按钮不会刷新下面的表，我要这个按钮触发的同时可以刷新下面的表。
此主题相关图片如下：qq图片20171110143949.png
With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"商品编码","录入时间","数量","创建人"}
.Head.AddRow(nms)
Dim i As Integer = 1
For Each r As DataRow In DataTables("商品盘点").Select("创建人=\'" & e.Cookies("username") &"\'", "录入时间 desc,_Identify desc")
With .Body.AddRow(r("spbm"),r("录入时间"),r("sl"),r("创建人"))
\'.AddCell(Format(r("单价"),"#0.00"))
\'.AddCell(Format(r("日期"),"MM月dd日"))
End With
If i = 10 Then Exit For
i=i+1
Next
End With
-- 发布时间：2017/11/10 15:31:00
--
方法一：整个页面刷新一次即可；
方法二：页面改成动态插入的方式 http://www.foxtable.com/mobilehelp/scr/0110.htm
-- 发布时间：2017/11/10 15:33:00
--
整个界面怎么刷新
-- 发布时间：2017/11/10 15:51:00
--
以下是引用1538000在2017/11/10 15:33:00的发言：
整个界面怎么刷新
整个界面怎么刷新
js代码
location.reload();
-- 发布时间：2017/11/10 16:11:00
--
这个在之前就加了，只是这样做我扫码输入的值就不能保存到我的输入框内了，加了这个之后我点击新增扫码按钮之后就成这样了，不刷新的话所扫的值会回填到商品信息一栏中。
此主题相关图片如下：123.png
-- 发布时间：2017/11/10 16:30:00
--
你的js，用上cookie吧，把信息保存在cookie里面，然后后台、前台都可以用，把cookie的值设置到你文本框里面即可。
https://www.baidu.com/baidu?wd=js+cookie
不过建议你不要刷新整个页面，建议你还是用这种方法动态获取数据并加入 http://www.foxtable.com/mobilehelp/scr/0110.htm