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

问题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

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编辑过]

没看到有哪里使用到setAjaxOptions

好好理解帮助；http://www.foxtable.com/mobilehelp/scr/0096.htm

1.1楼发帖时，setajaxoptions代码被屏蔽了，1楼被屏蔽处已经做了说明

2.视频和文档都看了，内部函数quyu代码，就是参照setAjaxOptions做的，页面前3行正常，后3行不能正常从后台获取信息

还麻烦看看，谢谢！

[此贴子已经被作者于2017/3/18 18:43:02编辑过]

1、建议你直接上传可测试的例子，否则回复你的问题，还得先建表，先输入测试数据，耽误时间。

2、setAjaxOptions只是动态设置列表项目，我没有看到你自动输入家乡县和家乡区县的代码，请仔细参考：

http://www.foxtable.com/mobilehelp/scr/0103.htm

找了好久，问题还在，问题在1楼，这里上传例子

这是项目文件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:langwo(2017-3-19).rar

这是web文件夹：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:web(2017-3-19).rar

要学会调试，加入msgbox把信息弹出。

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

页面刷新：内部函数quyu的所有msgbox都执行，显示1、2、3、6、7、8；

点击页面所在省、所在市，功能正常，msgbox都执行，分别显示4、5

点击页面家乡省、家乡市，功能不正常，msgbox都执行，都显示4

考虑页面屏蔽代码，将代码放在txt文件（）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:quyu及quyu_get代码.txt

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

e.WriteString(vals)

End Select

当"城市列表",没有加载时，找不到所有的省市县，怎么办？直接改成

sqlGetComboListString，应该就可以了把？

如果是经常使用的数据就全部加载出来咯，全部的城市也没有多少数据

主题：setAjaxOptions问题