Dim wb As New weui
If e.PostValues.Count>0 Then
If e.PostValues("销售发货单号")<>""
Dim dr As DataRow=DataTables("销售发货单").s ql find("销售发货单号='" & e.PostValues("销售发货单号") & "'")
If dr IsNot Nothing Then
MessageBox.show("0")
For Each key As String In e.Files.Keys
MessageBox.show("1")
Dim i As Integer=0
For Each fln As String In e.Files(key)
MessageBox.show("1")
Dim lj As String= ProjectPath & "temp\" & e.PostValues("销售发货单号")
If FileSys.DirectoryExists(lj)=False Then
FileSys.CreateDirectory(lj)
End If
lj=lj & "\" & e.PostValues("销售发货单号") & "@" & i & "@" & fln
e.SaveFile(key,fln,lj) '保存接收到的文件
i=i+1
Next
Next
With wb.AddMsgPage("","msgpage","保存成功", e.PostValues("销售发货单号") & "送货回单已上传!") '生成成功提示页
.AddButton("btn1","返回","upload.htm?dh=" & e.PostValues("销售发货单号") )
End With
Else
With wb.AddMsgPage("","msgpage","保存失败", "不存在这样的送货单!") '生成成功提示页
.icon= "Warn"
.AddButton("btn1","返回","upload.htm?dh=" & e.PostValues("销售发货单号") )
End With
End If
Else
With wb.AddMsgPage("","msgpage","保存失败", "发货单号不能为空!") '生成成功提示页
.icon= "Warn"
.AddButton("btn1","返回","upload.htm")
End With
End If
蓝色标记能弹出来，红色标记的部分没有提示，文件保存的代码也不执行，无论是同步还是异步都不行，奇怪了。
[此贴子已经被作者于2021/2/23 12:04:53编辑过]
加好友 
发短信
Post By：2021/2/23 12:04:00 [只看该作者]
