i企业微信动态列表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在企业微信页面中设备动态列表，公司区域可以正常获取，但部门的没有办法，请问是代码哪里的问题？

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);
}

我修改为这样的函数之后，第一次可以，但在同一界面再次选择的话就不行了

Case "order.htm"
        wb.AddForm("","form1","order.htm")
        With wb.AddInputGroup("form1","ipg1","采购查询")
            With .AddSelect("公司区域","公司区域","|" & DataTables("Depts").SQLGetComboListString("Company"))
                .Attribute = """
            End With
            .AddSelect("部门","部门","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
    Case "getBrands.htm"
        Dim pps As String = DataTables("Depts").SQLGetComboListString("DeptName","Company ='" & e.PostValues("公司区域") & "' And DeptClasses = 'B'")
        e.WriteString(pps)
        e.WriteString(wb.Build) '生成网页

调取函数没有问题，就是选择之后部门栏位未能取到函数的结果；

此主题相关图片如下：qq截图20191209142239.png

Consloe：

order.htm:19 Uncaught ReferenceError: getBrands is not defined

at HTMLSelectElement.onchange (order.htm:19)

主题：i企业微信动态列表