submitAjaxForm 不刷新当前页面,提交表单数据,保存的数据如何不刷新页面显示在当前面页？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → submitAjaxForm 不刷新当前页面,提交表单数据,保存的数据如何不刷新页面显示在当前面页？

共有6045人关注过本帖树形打印复制链接主题：submitAjaxForm 不刷新当前页面,提交表单数据,保存的数据如何不刷新页面显示在当前面页？

户国兴

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：1772 威望：0 精华：0 注册：2020/8/15 9:21:00

submitAjaxForm 不刷新当前页面,提交表单数据,保存的数据如何不刷新页面显示在当前面页？ 发帖心情

Post By：2022/4/19 8:15:00 [只看该作者]

wb.AppendHtml("<meta http-equiv='refresh' c>",True) 这是目前我用的方式，不断地刷屏，感觉不合理。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/19 8:36:00 [只看该作者]

请贴出完整代码说明问题

户国兴

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：1772 威望：0 精华：0 注册：2020/8/15 9:21:00

Post By：2022/4/19 9:07:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sq.rar

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/19 9:45:00 [只看该作者]

什么地方用到submitAjaxForm 的？js代码？

户国兴

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：1772 威望：0 精华：0 注册：2020/8/15 9:21:00

Post By：2022/4/19 10:04:00 [只看该作者]

红线部分是刷新页面，能不能用submitAjaxForm实现不刷新页面，显示保存的数据？

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/4/19 10:16:00 [只看该作者]

……

With wb.AddDialog("","dlg2", "返回确认","您确定要返回主页吗?")

.AddButton("btnCancel","取消","sq_reset1.htm").Kind = 1

.AddButton("btnOK","确定","./sq_reset.htm")

End With

With wb.AddButtonGroup("form1","btg1",False)

.Add("btn1", "","button") .Attribute = "onclick=""submitAjaxForm('form1','',false)"""

End With

wb.AppendHTML("<script src='./lib/tm_sq.js'></script>")

wb.AppendHTML("<script>document.getElementById('tm').focus()</script>")

e.WriteString(wb.Build)

Else

……

Dim cmd1 As New SQLCommand

cmd1.C

cmd1.CommandText ="insert into tm_temp(sal_no,tm_dep,tm_type,tm_no,mprd_no,mwh,mmark,mbat,qty,usr,tm_dd,bil_no,qty_fu) values('"& hgh &"','" & hgx & "','SQ','" & e.PostValues("tm") & "','" & hmprd_no & "','"& hwh &"','"& hmark &"','"& hbat &"','" & e.PostValues("sl") & "','" & username & "',getdate() ,'" & mbil_no & "','" & hqty_fu & "') "

cmd1.ExecuteNonQuery

e.WriteString("OK")

End If

Case "validsq.htm"