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

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

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

有点蓝

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

加好友

发短信

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

Post By：2022/4/19 8:36:00 [显示全部帖子]

请贴出完整代码说明问题

有点蓝

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

加好友

发短信

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

Post By：2022/4/19 9:45:00 [显示全部帖子]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：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"