EDIT.HTM点击确定按钮时,HANDLEDIT.HTM页面没有接收数据怎么回事?(即调试handledit.htm页面没有被执行)
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim id As String = e.GetValues("id") 'id参数用于区分设置popup里面的页面的控件id,避免出现重复控件ID
Dim Page As Integer '页码变量
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "List.htm?page=" & PageNumber
If PrimaryKey <> -1 Then
'If e.PostValues.Count = 0 Then '生成编辑页面
Dim dr As DataRow = DataTables("ShouZhi").SQLFind("[szid]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","formEdit","handledit.htm?&key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("formEdit","ipg1","编辑记录")
With .AddInput("riqi","<img class='icon' src='/images/date.png'> 日期:","date")
.Value=dr("riqi")
End With
With .AddSelect("classtype","<img class='icon' src='/images/class.png'> 收支:","|" & DataTables("dict").SqlGetComboListString("Class").replace(dr("classtype"),"[" & dr("classtype") & "]"))
.Attribute = """
End With
With .AddSelect("itemname","<img class='icon' src='/images/item.png'> 项目:","|" & DataTables("dict").SqlGetComboListString("itemming","Class='" & dr("classtype") & "'").replace(dr("itemname"),"[" & dr("itemname") & "]"))
.Attribute = """
End With
.AddSelect("detailname","<img class='icon' src='/images/name.png'> 名称:","|" & DataTables("dict").SqlGetComboListString("listname","class='" & dr("classtype") & "' and ItemMing='" & dr("itemname") & "'").replace(dr("detailname"),"[" & dr("detailname") & "]"))
.AddSelect("shouzhiAcc","<img class='icon' src='/images/account.png'> 账号:",DataTables("dict").SqlGetComboListString("Account").replace(dr("shouzhiAcc"),"[" & dr("shouzhiAcc") & "]"))
With .AddInput("money","<img class='icon' src='/images/money.png'> 金额:","number")
.Step="0.01"
.Value=dr("money")
End With
End With
With wb.AddInputGroup("formEdit","ipg2","备注")
.AddTextArea("other",1).Value = dr("other")
End With
With wb.AddButtonGroup("formEdit","btg1",False)
.Add("btn1" & id, "保存", "button").Attribute="onclick=myfunctio n 1 ()'"
.Add("btn3" & id, "取消", "button").Attribute= ""
End With
wb.AppendHTML("<script src='./lib/valid.js'></script>")
Else
With wb.AddMsgPage("","msgpage","编辑失败", "此记录可能已经被删1111除!") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
End If
wb.AppendHTML("<script src='./lib/cjhsetCodes.js'></script>")
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>")
wb.AppendHTML("<script src='./lib/cjhtable.js'></script>")
e.WriteString(wb.Buildhtml("formEdit"))