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

需要的效果是：同一类型/系列的不同机型作对比。

现在机型1/机型2无法获得需要的下拉列表，代码需要如何修改？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:httpserver2017.foxdb

此主题相关图片如下：11.jpg

一.窗口代码如下：

Dim wb As New WeUI

wb.AddPageTitle("","choose","规格型号","") '标题

wb.AddForm("","form1","choose.htm") '表单

With wb.AddInputGroup("form1","ipg1","选择规格型号") '列表

'DataTables("机器规格").LoadFilter = "" '加载所有数据

'DataTables("机器规格").Load()

With .AddSelect("类型","类型","|" & DataTables("机器规格").SQLGetComboListString("类型"))

.Attribute = """ 'setAjaxOptions用于根据后台数据动态生成列表项目

End With

With .AddSelect("系列","系列","")

.Attribute = """

End With

.AddSelect("机型1","机型1","")

.AddSelect("机型2","机型2","")

End With

With wb.AddButtonGroup("form1","btg1",False) '按钮

.Add("btn1", "对比", "submit")

.Add("btn2", "返回","", "./product.htm") '跳转到产品首页..也就是上一页

End With

e.WriteString(wb.Build) '生成网页

二：getchoose页面代码如下：

Dim vals As String

If e.PostValues.Count = 1 Then

vals = "|" & DataTables("机器规格").SQLGetComboListString("系列","类型 = '" & e.PostValues("类型") & "'")

ElseIf e.PostValues.Count = 2 Then '当选择<系统>框值时,机型1/机型2的下拉取值框作如下变动

If e.PostValues.ContainsKey("机型1") Then

Dim Filter As String = "类型 = '" & e.PostValues("类型") & "' And 系列 = '" & e.PostValues("系列") & "'"

vals = "|" & DataTables("机器规格").SQLGetComboListString("机型", Filter)

ElseIf e.PostValues.ContainsKey("机型2") Then

Dim Filter As String = "类型 = '" & e.PostValues("类型") & "' And 系列 = '" & e.PostValues("系列") & "'"

vals = "|" & DataTables("机器规格").SQLGetComboListString("机型", Filter)

End If

e.WriteString(vals)

[此贴子已经被作者于2017/4/1 14:02:40编辑过]

主题：移动setAjaxOptions求代码