以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么传递隐藏值（标记数据）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150496)
--  作者：ifox2018
--  发布时间：2020/5/31 17:37:00
--  怎么传递隐藏值（标记数据）
用的WEUI。

首页现代码
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
--  作者：zhangjian222200
--  发布时间：2020/5/31 17:40:00
--  
     .AddHidenValue("x",x)
--  作者：有点蓝
--  发布时间：2020/5/31 21:45:00
--  
            .Add("ls1","车辆简况", "查询表", "http://1.1.1.1/carfilter.htm?lb=1")
             .Add("ls2","车辆保险", "查询表", "http://1.1.1.1/carfilter.htm?lb=2")


Case "carfilter.htm"       
if e.getvalues("lb")  ="1" then
wbcarcx.AddForm("","form1","JK.htm")
else
wbcarcx.AddForm("","form1","BX.htm")
end if