以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态列表出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120741)

--  作者:zoyong
--  发布时间:2018/6/22 17:43:00
--  动态列表出错
图片点击可在新窗口打开查看JS代码:
function getBrands(){
    var gj=document.getElementById("在建项目").value;
    setOptions("资质",document.getElementById(gj).innerHTML);
}

调试错误代码:
weui.me.js:478 Uncaught TypeError: Cannot set property \'value\' of null
    at setAjaxOptions (weui.me.js:478)
    at HTMLSelectElement.onchange (xmfksq.htm:19)

要显示的页面

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180622173951.png
图片点击可在新窗口打开查看


原代码
 Dim wb As New weui
        wb.AddForm("","form1","xmfksq.htm")
        With wb.AddInputGroup("form1","ipg1","动态列表")
            With .AddSelect("qy","区域","|" & DataTables("在建项目").GetComboListString("区域"))
                .Attribute = """
            End With
            With .AddSelect("zz","资质","")
                .Attribute = """
            End With
            .AddSelect("xmmc","项目名称","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页


--  作者:有点甜
--  发布时间:2018/6/22 18:04:00
--  

加入代码

 

function getBrands(){
alert(123);
    var gj=document.getElementById("在建项目").value;
alert(gj);
alert(document.getElementById(gj).innerHTML);
    setOptions("资质",document.getElementById(gj).innerHTML);
}

--  作者:zoyong
--  发布时间:2018/6/27 16:06:00
--  
加入上面代码,没有弹出
--  作者:有点甜
--  发布时间:2018/6/27 16:25:00
--  

贴出完整Attribute后面的代码

 

js文件,另存为utf-8格式


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180626104812.png
图片点击可在新窗口打开查看


--  作者:zoyong
--  发布时间:2019/7/10 10:00:00
--  
记录窗口,能不能根据动态加载的列的数量, 自动增加高度,便于全部显示列
--  作者:有点蓝
--  发布时间:2019/7/10 10:25:00
--  
记录窗口默认一行的高度是21,自己计算有多少行,然后使用代码设置控件的高度即可:http://www.foxtable.com/webhelp/topics/0719.htm