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
效果是想当第一个所属公司下拉选择后，第二个下拉菜单能在后台将属于该公司的车辆都显示出来，以供选择。
加好友 
发短信
Post By：2019/8/13 16:12:00 [只看该作者]
