移动开发WeUI调用js函数上传文件按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现根据帮助文档做综合页面

示例文档: 再谈表单验证 , 结合调用js函数上传文件, 菜单综合示例做表单提交

现在不知道按钮怎么写,如何做到上传前先验证表单再用 增强Uploader 上传文件,然后增加订单后能出现一个提示.再回到菜单综合

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

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

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

直接照着再帮助做就可以了，没看出来到底有什么问题？写了什么代码？哪一步不行？

提交按扭如何执行两个js函数,而且要先验证再上传文件

现在按帮助做直接就提交上传文件了

[此贴子已经被作者于2019/4/23 23:25:37编辑过]

在你的js函数那里，写入你需要的代码即可

function submitWithProgress(){

'在这里写你需要的任意代码，执行后再执行上传代码
var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
}

改之前的

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

改之后的达不到功能

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

以下内容为程序代码:

1
2 function submitForm(){
3 show("tst1",2000);
4 var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
5 }
6
7 function afterSubmit(result){
8 hide("tst1");
9 if (result=='OK') {
10 show("tst2",2000);
11         document.getElementById("质检报告图片").value=vals[0];
12 location="AddNew.htm";
13 }
14 else{
15 show("tst3",2000);
16 }
17 }
18
19
20     function validit(){
21 var result=submitAjaxFileds("valid.htm","","姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量",false);
22
23 if(result=="OK"){
24 return true;
25 }
26 else{
27 showTopTips("toptip1",result,2500);
28 return false;
29 }
30     }

还请老师改下,谢谢

改成

function submitForm(){

if(validit()) {

show("tst1",2000);
var result = submitAjaxForm('form1','afterSubmit',true,'tst1');

}

谢谢,可以验证了. 提交文件也上传了,数据也收到了.但是提交后不会跳转普通按钮可以跳转

请再指点

想要这种效果

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

实际是这样

此主题相关图片如下：r2502.jpg

代码是这样的:

Else '保存新增的订单

' e.WriteString("OK")

Dim dr As DataRow = DataTables("生产日报表").AddNew()

Dim nms() As String = {"姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量","质检报告图片","详细工作内容"}

For Each nm As String In nms

dr(nm) = e.PostValues(nm)

Dim fln As String

For Each key As String In e.Files.Keys

For Each fln In e.Files(key)

e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件

dr("质检报告图片")= fln

dr.Save()

With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交!") '增加订单成功提示信息,请领取打印标签

.AddButton("btn2","继续增加","addnew.htm")

' .AddButton("btn2","返回列表","list.htm") '列表未做好,先不开放

End With

MessageBox.Show(1)

End If

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build) '生成网页

表中也有保存了,MessageBox也弹出了.继续增加的页面就不显示. 是JS的问题么?要怎么写呢?

按钮的代码是这样的

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

贴出你完整的js代码

主题：移动开发WeUI调用js函数上传文件 按钮

主题：移动开发WeUI调用js函数上传文件按钮