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)
Next
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) \'保存接收到的文件
Next
Next
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的问题么?要怎么写呢?