在企业微信页面中设备动态列表,公司区域可以正常获取,但部门的没有办法,请问是代码哪里的问题?
Case "Order.htm"
wb.AddForm("","form1","Order.htm")
Dim gjs As List(of String) = DataTables("Depts").SQLGetValues("Company")
With wb.AddInputGroup("form1","ipg1","采购筛选")
.AddSelect("公司区域","公司区域","|" & String.Join("|",gjs.ToArray)).Attribute = "" '调用js函数.
.AddSelect("部门","部门","")
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束时间","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
For Each gj As String In gjs
wb.InsertHTML("<p hidden id='" & gj & "'>" & DataTables("Depts").SQLGetComboListString("DeptName","Company='" & gj & "'") & "</p>")
Next
wb.AppendHTML("<script src='./lib/brands.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Brands.js
function getBrands(){
var gj=document.getElementById("公司区域").value;
setOptions("部门",document.getElementById(gj).innerHTML);
}