我想直接用链接去打开这个页面，老是显示空白。帮看看代码有没有问题。
http://wx.e-gain.com.cn/dredit1.htm?droid=M1807002
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim droid As String = e.GetValues("droid")
Dim url = "dredit1.htm?droid="&droid
Dim murl = "drlist.htm"
If e.PostValues.Count = 0 Then '生成编辑页面
Dim dr As DataRow = DataTables("appm").SQLFind("[RCId] = " & droid)
If dr IsNot Nothing Then
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1","派车单")
With .AddInput("RCId","单号","text")
.Value = dr("RCId")
.Readonly= True
End With
With .AddInput("st","出发时间","text")
.Value = dr("st")
.Readonly= True
End With
With .AddTextArea("用车人")
.Value =dr("namelist")
.Readonly = True
End With
With .AddTextArea("目的地")
.Value =dr("allad")
.Readonly = True
End With
' -------------------------------------------------------------------------------------以下为司机输入内容
With .AddInput("skm","起始里程","text")
.Value = dr("skm")
End With
With .AddInput("ekm","结束里程","text")
.Value = dr("ekm")
End With
With .AddInput("dfee","其它费用","number")
.Step = "0.01"
.Placeholder = "此处输入费用金额"
End With
With .AddInput("vcfee","洗车费用","number")
.Step = "0.01"
.Placeholder = "此处仅输入洗车的费用金额"
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End If
Else
Dim dr As DataRow = DataTables("appm").SQLFind("[RCId] =" & droid)
If dr IsNot Nothing Then
Dim nms() As String = {"skm","ekm","dfee","vcfee"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
'显示完成提示,2妙手自动返回原来的页面
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "处理完成",0).Visible = True
Else
With wb.AddMsgPage("","msgpage","保存失败", "此项记录可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",murl) '生成返回原来页面的按钮
End With
End If
End If
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2018/7/23 11:28:00 [只看该作者]
