以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉菜单不显示内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139473)
--  作者：ifox2018
--  发布时间：2019/8/13 16:12:00
--  下拉菜单不显示内容
Select Case e.Path
Case "car.htm"
        Dim wbq As New weui
        wbq.AddForm("","form1","car.htm")
       With wbq.AddInputGroup("form1","ipg1","动态列表")
            With .AddSelect("所属公司","所属公司","一分公司|二分公司")
                .Attribute = """
            End With
            .AddSelect("car_name","车号","")
        End With
        With wbq.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wbq.Build) \'生成网页
    Case  "getBrands.htm"
        Dim pps As String = "|" & DataTables("car_useinfo").GetComboListString("car_name","car_user=\'" & e.PostValues("car_user") & "\'")
e.WriteString(pps)
 End Select



效果是想当第一个所属公司下拉选择后，第二个下拉菜单能在后台将属于该公司的车辆都显示出来，以供选择。