标红处报错，从字符串“null”到类型“Integer”的转换无效。输入字符串的格式不正确。http://192.168.1.5/edit.htm?page=0&key=null
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer = e.GetValues("page")
msgbox(1)
Dim PrimaryKey As Integer = e.GetValues("key")
msgbox(2)
Dim PageURL = "List.htm?page=" & PageNumber
msgbox(3)
If e.PostValues.Count = 0 Then '生成编辑页面
Dim dr As DataRow = DataTables("Table_Mem").SQLFind("[memid]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","edit.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","编辑记录")
.AddInput("huodongdate","活动日期","date").Value = dr("huodongdate")
.AddInput("huodongfee","活动费用","number").Value = dr("huodongfee")
.AddInput("yucunkoufee","预存扣费","number").Value = dr("yucunkoufee")
.AddInput("onlinefee","线上收费","number").Value = dr("onlinefee")
.AddInput("offlinefee","线下收费","number").Value = dr("offlinefee")
.AddInput("demo","备注","Text").Value = dr("demo")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else
With wb.AddMsgPage("","msgpage","编辑失败", "此记录可能已经被删除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
Else '保存编辑结果
Dim dr As DataRow = DataTables("Table_Mem").SQLFind("[memid]=" & PrimaryKey)
If dr IsNot Nothing Then
Dim nms() As String = {"huodongdate","huodongfee","yucunkoufee","onlinefee","offlinefee","demo"}
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","返回",PageURL) '生成返回原来页面的按钮
End With
End If
End If
e.WriteString(wb.Build)
加好友 
发短信
Post By：2021/2/2 17:00:00 [显示全部帖子]
此主题相关图片如下：qq截图20210202165941.png
