- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- setAjaxOptions问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97801)
-- 发布时间：2017/3/18 15:44:00
-- setAjaxOptions问题
问题1：家乡市、家乡区县，无法随着家乡省选择相应的内容
问题2：当表“城市列表”没有加载时，页面上所有行无法选择内容
页面如下：
此主题相关图片如下：qq图片201703181535151.png
内部函数quyu代码：
Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "quyu.htm"
Dim wb As New weui
wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
wb.AddForm("","form1","quyu.htm").Attribute= "代码被屏蔽，详见下图"
With wb.AddInputGroup("form1","ipg1","区域资料")
With .AddSelect("szs","所在省","|" & DataTables("城市列表").GetComboListString("所在省"))
.Attribute = "代码被屏蔽，详见下图"
End With
With .AddSelect("szshi","所在市","")
.Attribute = "代码被屏蔽，详见下图"
End With
.AddSelect("szqx","所在区县","")
With .AddSelect("jxs","家乡省","|" & DataTables("城市列表").GetComboListString("所在省"))
.Attribute = "代码被屏蔽，详见下图"
End With
With .AddSelect("jxshi","家乡市","")
.Attribute = "代码被屏蔽，详见下图"
End With
.AddSelect("jxqx","家乡区县","")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定","submit")
End With
End With
wb.AppendHTML("<script src=\'./lib/ajaxform_quyu.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
End Select
此主题相关图片如下：qq图片2017031817181311.png
内部函数quyu_get代码：
Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "quyu_get.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("城市列表").GetComboListString("所在市","所在省=\'" & e.PostValues("szs") & "\'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter1 As String = "所在省=\'" & e.PostValues("szs") & "\' And 所在市=\'" & e.PostValues("szshi") & "\'"
vals = "|" & DataTables("城市列表").GetComboListString("所在区县", Filter1)
ElseIf e.PostValues.Count = 4 Then
vals = "|" & DataTables("城市列表").GetComboListString("家乡市","所在省=\'" & e.PostValues("jxs") & "\'")
ElseIf e.PostValues.Count = 5 Then
Dim Filter2 As String = "所在省=\'" & e.PostValues("jxs") & "\' And 所在市=\'" & e.PostValues("jxshi") & "\'"
vals = "|" & DataTables("城市列表").GetComboListString("家乡区县", Filter2)
End If
e.WriteString(vals)
End Select
经多次检查，httprequest页面跳转代码正常，这是"城市列表"的内容
此主题相关图片如下：qq图片2017031815455812.png
[此贴子已经被作者于2017/3/18 17:20:56编辑过]
-- 发布时间：2017/3/18 16:09:00
--
没看到有哪里使用到setAjaxOptions
好好理解帮助；http://www.foxtable.com/mobilehelp/scr/0096.htm
-- 发布时间：2017/3/18 17:29:00
--
1.1楼发帖时，setajaxoptions代码被屏蔽了，1楼被屏蔽处已经做了说明
2.视频和文档都看了，内部函数quyu代码，就是参照setAjaxOptions做的，页面前3行正常，后3行不能正常从后台获取信息
还麻烦看看，谢谢！
[此贴子已经被作者于2017/3/18 18:43:02编辑过]
-- 发布时间：2017/3/20 7:36:00
--
1、建议你直接上传可测试的例子，否则回复你的问题，还得先建表，先输入测试数据，耽误时间。
2、setAjaxOptions只是动态设置列表项目，我没有看到你自动输入家乡县和家乡区县的代码，请仔细参考：
http://www.foxtable.com/mobilehelp/scr/0103.htm
-- 发布时间：2017/3/20 18:05:00
--
找了好久，问题还在，问题在1楼，这里上传例子
这是项目文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:langwo(2017-3-19).rar |
这是web文件夹：
-- 发布时间：2017/3/20 19:20:00
--
要学会调试，加入msgbox把信息弹出。
-- 发布时间：2017/3/20 21:03:00
--
此主题相关图片如下：qq图片201703181535151.png页面刷新：内部函数quyu的所有msgbox都执行，显示1、2、3、6、7、8；
点击页面所在省、所在市，功能正常，msgbox都执行，分别显示4、5
点击页面家乡省、家乡市，功能不正常，msgbox都执行，都显示4
考虑页面屏蔽代码，将代码放在txt文件（）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:quyu及quyu_get代码.txt |
-- 发布时间：2017/3/20 21:07:00
--
Dim e As RequestEventArgs = args(0) \'注册第3页,完善资料(从后台填写城市)
Select Case e.Path
Case "quyu_get.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
If e.PostValues.ContainsKey("szs")
vals = "|" & DataTables("城市列表").GetComboListString("所在市","所在省=\'" & e.PostValues("szs") & "\'")
Else
vals = "|" & DataTables("城市列表").GetComboListString("所在市","所在省=\'" & e.PostValues("jxs") & "\'")
End If
ElseIf e.PostValues.Count = 2 Then
If e.PostValues.ContainsKey("szs")
Dim Filter1 As String = "所在省=\'" & e.PostValues("szs") & "\' And 所在市=\'" & e.PostValues("szshi") & "\'"
vals = "|" & DataTables("城市列表").GetComboListString("所在区县", Filter1)
Else
Dim Filter2 As String = "所在省=\'" & e.PostValues("jxs") & "\' And 所在市=\'" & e.PostValues("jxshi") & "\'"
vals = "|" & DataTables("城市列表").GetComboListString("所在区县", Filter2)
End If
End If
e.WriteString(vals)
End Select
-- 发布时间：2017/3/20 21:31:00
--
当"城市列表",没有加载时，找不到所有的省市县，怎么办？直接改成
sqlGetComboListString，应该就可以了把？
-- 发布时间：2017/3/20 22:08:00
--
如果是经常使用的数据就全部加载出来咯，全部的城市也没有多少数据