专家坐堂-调用js错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  调用js错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157191)

--  作者：leiguohui
--  发布时间：2020/10/7 11:40:00
--  调用js错误

各位老师：
按照帮助里面的：submitAjaxFileds的例子，调用js错误，是怎么回事
</div>
</div>
<div class=\'weui_cell weui_cell_select weui_select_after\'>
<div class=\'weui_cell_hd\'><label class=\'weui_label\'>县</label></div>
<div class=\'weui_cell_bd weui_cell_primary\'>
<select id=\'county\' name=\'county\' class=\'weui_select\'>

\' 网页错误显示：select id=\'county\' name=\'county\' class=\'weui_select\'
Uncaught ReferenceError: setCodes is not defined
</select>

\' 网页错误显示：
test.htm:30 Uncaught ReferenceError: setCodes is not defined
at HTMLSelectElement.onchange (test.htm:30)

js文件
function setCodes(){
    var result= submitAjaxFileds(\'getCodes.htm\',\'\',\'province\',\'county\',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("areacode").value=vals[0];
            document.getElementById("postcode").value=vals[1];
        }
    }
}

[此贴子已经被作者于2020/10/7 11:45:33编辑过]

--  作者：有点蓝
--  发布时间：2020/10/7 11:44:00
--
没有引用js文件

  wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件

--  作者：leiguohui
--  发布时间：2020/10/7 11:48:00
--
蓝老师：有引入

[此贴子已经被作者于2020/10/7 12:00:32编辑过]

--  作者：leiguohui
--  发布时间：2020/10/7 11:51:00
--
http：
Select Case e.Path

Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","自动输入")
With .AddSelect("province","省市","|"+DataTables("行政区域").GetComboListString("省市"))
.Attribute = """
End With
With .AddSelect("county","县","")
.Attribute = "" \'调用js函数
End With
.AddInput("areacode","区号","text")
.AddInput("postcode","邮编","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform3.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "getCounties.htm" \'根据输入的省,获取县市列表
Dim pps As String = DataTables("行政区域").GetComboListString("县市","省市=\'" & e.Values("province") & "\'")
e.WriteString("|" & pps)
Case "getCodes.htm" \'根据输入的省和县,获取区号有邮编
Dim dr As DataRow = DataTables("行政区域").Find("省市=\'" & e.Values("province") & "\' and 县市=\'" & e.values("county") & "\'")
If dr IsNot Nothing Then
e.WriteString(dr("区号") & "|" & dr("邮编"))
End If

End Select

js：
function setCodes(){
var result= submitAjaxFileds(\'getCodes.htm\',\'\',\'province\',\'county\',false);
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("areacode").value=vals[0];
document.getElementById("postcode").value=vals[1];
}
}
}

[此贴子已经被作者于2020/10/7 11:52:33编辑过]

--  作者：有点蓝
--  发布时间：2020/10/7 11:56:00
--
连接了错误的文件，或者没有保存，js文件根本就没有任何问代码

--  作者：leiguohui
--  发布时间：2020/10/7 11:57:00
--
刚发现了但是127.0.0.1 本机测试又是可以的

--  作者：leiguohui
--  发布时间：2020/10/7 12:00:00
--
谢谢蓝老师：
我修改了JS名称可以了，应该是引用错了

--  作者：有点蓝
--  发布时间：2020/10/7 12:00:00
--
文件是不是没有复制到服务器对应的目录里？

--  作者：leiguohui
--  发布时间：2020/10/7 12:01:00
--
应该是js文件名称的问题

--  作者：leiguohui
--  发布时间：2020/10/7 12:03:00
--

蓝老师：
这个题目：可不可以做个模糊查询的

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132228&authorid=0&page=0&star=1