Case "car.htm"
Dim wbcar As New WeUI
wbczccar.InsertHTML("<h3 align='center' style='margin-top:5px'>出租车车辆情况</h3>")
With wbczccar.AddListGroup("", "lsg1", "出租车车辆情况查询")
.Add("ls1","车辆简况", "查询表", "http://1.1.1.1/carfilter.htm")
.Add("ls2","车辆保险", "查询表", "http://1.1.1.1/carfilter.htm")
.Add("ls3","1111", "查询表", "http://1.1.1.1/ok.htm")
.Add("ls4","22222", "查询表", "http://1.1.1.1/bd.htm")
End With
e.WriteString(wbcar.Build)
ls1和ls2跳转的第一层页面是一样的。 但第二层页面不一样。 这里怎么传递隐藏值。 使得 carfilter.htm 操作完成后，调整不同的页面。
红色代码修改成如下，报错，提示：AddHiddenValue不是wlistgroup的成员
.AddHiddenValue("lb","车辆简况")
.Add("ls1","车辆简况", "查询表", "http://1.1.1.1/carfilter.htm")
.AddHiddenValue("lb","车辆保险")
.Add("ls2","车辆保险", "查询表", "http://1.1.1.1/carfilter.htm")
carfilter.htm 页面现有源码：
Case "carfilter.htm"
Dim wbcarcx As New weui
wbcarcx.AddForm("","form1","JK.htm")
With wbcarcx.AddInputGroup("form1","ipg1","车辆状态查看")
With .AddSelect("caruser","所属公司","|一分公司|二分公司")
.Attribute = """
End With
.AddSelect("carname","车号","")
End With
With wbcarcx.AddButtonGroup("form1","btngrp1",False)
.Add("btn1", "确定", "submit") '提交
End With
e.WriteString(wbcarcx.Build) '生成网页
Case "getcarname.htm"
Dim pps As String = DataTables("useinfo").GetComboListString("name","user='" & e.PostValues("caruser") & "' ")
e.WriteString(pps)
如果有值传过来， 红色代码想改成如下，是否正确
if lb = “车辆简况” then
wbcarcx.AddForm("","form1","JK.htm")
else
wbcarcx.AddForm("","form1","BX.htm")
end if
加好友 
发短信
Post By：2020/5/31 17:37:00 [只看该作者]
