Dim wb As New weui
'订单编辑
Dim pr As DataRow '订单
Dim Page As Integer '页码变量
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
pr = DataTables("明细").SQLAddNew() '
pr("订单编号") = Functions.Execute("GetOrderIDxdbg")
Else '如果传递了订单编号,则找出此订单进行编辑
pr = DataTables("明细").SQLFind("订单编号='" & e.GetValues("oid") & "'")
If pr Is Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
wb.InSertHtml("系统没看到该记录,请联系")
e.WriteString(wb.Build)
Return "" '必须返回
End If
End If
If e.GetValues.ContainsKey("oid") Then '如果是旧订单,则汇总显示数量和金额
With wb.AddInputGroup("form1","ipg8","问题点")
.AddTextArea("问题点",3).value = pr("问题点")
With .AddUploader("up1","照片",True) 这里是想显示之前提交的图片
.AllowDelete = True
End With
End With
Else
With wb.AddInputGroup("form1","ipg3","问题点")
.AddTextArea("问题点",3)
With .AddUploader("up1","照片",True)
.AllowDelete = True '
End With
End With
End If
pr.Save() '
save 自定义函数代码：
Dim e As RequestEventArgs = args(0)
'保存订单
Dim dr As DataRow = DataTables("明细").SQLFind("订单编号='" & e.PostValues("订单编号") & "'")
Dim nms() As String = {""}
If dr IsNot Nothing Then
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm)= e.PostValues(nm)
End If
Next
End If
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, "D:\wwwroot\mobo\照片\" & fln)
Next
dr.Lines("图片") = e.Files(key)
End If
Next
dr.Save()
[此贴子已经被作者于2017/6/2 14:50:49编辑过]
加好友 
发短信
Post By：2017/6/2 14:50:00 [显示全部帖子]
