Dim Orderid As String = e.GetValues("oid")
'保存订单
sql = CExp("select * fro m 短途配货单 where 配货单号='{0}'",Orderid)
dt = Functions.Execute("GetOuterDataTable","V16Data",sql,True)
If dt.DataRows.Count > 0 Then
dr = dt.DataRows(0)
If e.PostValues.ContainsKey("remark") Then
dr("备注")= e.PostValues("remark") '设置备注
End If
'
End If
For Each key As String In e.Files.Keys
Dim nfl As String
If key = "bill" Then
Dim strMultiFile As New List(Of String)
For Each fln As String In e.Files(key)
nfl = SaveWebFile("bill",fln,e.cookies("userid"),e)
strMultiFile.Add(nfl)
Next
nfl = dr("发货单照片") & "|" & String.Join("|", strMultiFile.ToArray)
nfl= nfl.TrimStart("|")
dr("发货单照片")= nfl
End If
If key = "load" Then
For Each fln1 As String In e.Files(key)
nfl = SaveWebFile("load",fln1,e.cookies("userid"),e)
Next
dr("装货照片") = nfl
End If
Next
dr.Save()
原先是按照蓝色写的，正常。后来要保存多文件，修改后就出问题了
加好友 
发短信
Post By：2018/8/2 7:57:00 [只看该作者]
Post By：2018/8/2 17:57:00 [只看该作者]
