主题：请教：setAjaxOptions函数不起作用

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

把你做的项目单独发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:企业微信test01.rar

你自己修改了 setAjaxOptions 函数？请使用weui内置的最新版的js文件

 

http://www.foxtable.com/download/mobile/weui.zip

 

 

 

没有修改过，不过非常感谢，帮我找到了问题，我这边更新了JS文件也正常了。