请教老师,下面代码,为什么用按钮(submit)能达到按XMMC关键字能筛选出目标行,
换成用AddListGroup就不行??
Dim wb As New weui
Select Case e.Path
'------------20210208
Case "zbkcx.htm"
wb.AddForm("","form3","gcgkcx.htm")
With wb.AddInputGroup("form3","zbkipg","项目名称关键字筛选")
.AddInput("xmmc","项目名称","text").Placeholder = "请输入项目关键字"
wb.AppendCookie("xmmc", e.PostValues("xmmc")) '将值写入cookie中
End With
'----------list 20210208
With wb.AddListGroup("", "list0","<label style='color:#00CD00'> 1. 工程概况")
.Add("ls0", "项目工程概况","查询","gcgkcx.htm") 'xmmc无法传递到gcgkcx.htm页面
End With
With wb.AddButtonGroup("form3","zbkbtg",False)
.Add("zbkbtn1", "返回", "","home.htm")
.Add("zbkbtn2", "确定","sumbit") '操动这里能正确筛选出目标行
End With
'--------项目工程概况·查询
Case "","gcgkcx.htm"
wb.AddForm("zbkcx.htm","form3","gcgkcx.htm")
If e.PostValues("xmmc") = "" Then
'If e.PostValues.Count = 0 Then
With wb.AddMsgPage("","msgpage","异常操作","未输入项目名称关键字")
.icon = "Warn" '改变图标
.AddButton("cxsxbtn","重新筛选","zbkcx.htm").kind = 2
End With
Else
Dim flt As String
If e.PostValues.ContainsKey("xmmc") Then
flt = flt & "项目名称 like '%" & e.PostValues("xmmc") & "%'" '模糊查询
End If
Dim cmd As new SQLCommand
省略......
End If
End Select
e.WriteString(wb.Build)