Case "testqueryselect.htm" Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
wb.AddForm("","form1","testres.htm")
With wb.AddInputGroup("form1","ipg1","WeUI列表动态设置可查询列表")
.AddSelect("ss1","省市","|" & DataTables("行政区域").GetComboListString("省市")).Attribute = """
End With
Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("","ipg2")
Dim Inp As ExWeUI.ExQuerySelect = ipg.AddQuerySelect("xs1","县市")
inp.url="getSelect2"
inp.AsFields = "ss1"
Inp.Placeholder = "请选择县市"
wb.InsertHTML("form1",ipg.BuildHtml)
ipg = ExWeUI.WebUI.AddInputGroup("","ipg3","可查询列表动态设置WeUI列表")
Inp = ipg.AddQuerySelect("ss","省市","|" & DataTables("行政区域").GetComboListString("省市"))
Inp.Attribute = """
inp.url="getSelect1"
wb.InsertHTML("form1",ipg.BuildHtml)
With wb.AddInputGroup("form1","ipg4","")
.Attribute = "style = ""margin-top:0px"""
.AddSelect("xs","县市","")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2021/9/4 18:18:00 [只看该作者]
