按照帮助做了一个相同的例子，选择国家后，弹出框没有触发，点击品牌列表没反应。
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddSelect("国家","国家","|中国|德国|日本")
.Attribute = "font-family: 宋体; font-size: medium; font-style: normal; font-variant-ligatures: normal; font-variant-caps: normal; font-weight: normal; color: brown;">品牌','getBrands.htm','国家',false)"""
End With
.AddSelect("品牌","品牌","")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Case "getBrands.htm"MessageBox.Show(1)
Dim pps As String = DataTables("汽车").GetComboListString("品牌","国家='" & e.PostValues("国家") & "'")
e.WriteString(pps)
End Select
[此贴子已经被作者于2018/5/28 12:49:15编辑过]
加好友 
发短信
Post By：2018/5/28 12:47:00 [只看该作者]
