VJY_IWGB9}@)]9%VDAFX.png)
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) '生成网页