以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教：setAjaxOptions函数不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119596)
--  作者：bahamute
--  发布时间：2018/5/28 12:47:00
--  请教：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
[此贴子已经被作者于2018/5/28 12:49:15编辑过]
--  作者：有点甜
--  发布时间：2018/5/28 15:01:00
--  

把你做的项目单独发上来测试。
--  作者：bahamute
--  发布时间：2018/5/28 17:08:00
--  
单独做了项目，经测试问题依旧。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:企业微信test01.rar
--  作者：有点甜
--  发布时间：2018/5/28 17:33:00
--  

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

 

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

 

 

 
--  作者：bahamute
--  发布时间：2018/5/28 17:48:00
--  
没有修改过，不过非常感谢，帮我找到了问题，我这边更新了JS文件也正常了。