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

Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)
wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>",True)
wb.AddForm("","form1","test.htm")
With ExWeUI.WebUI.AddInputGroup("","ipg1","动态级联列表")
With .AddQuerySelect("xh","型号","|" & DataTables("规格").GetComboListString("型号"))
.Attribute = "string">"setAjaxQueryOptions(\'gg_list\',\'getProducts.htm\',\'xh\',false)"""
.Placeholder = "请选择型号"
End With
With .AddQuerySelect("gg","规格","")
.Attribute = "string">"setAjaxQueryOptions(\'ys_list\',\'getProducts.htm\',\'xh\',\'gg\',false)"""
.Placeholder = "先选择型号再选择规格"
End With
.AddQuerySelect("ys","颜色").Placeholder = "先选择型号规格再再选择颜色"
wb.InsertHTML("form1",.BuildHtml)
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build) \'生成网页
Case "getProducts.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("规格").GetComboListString("规格","型号=\'" & e.PostValues("xh") & "\'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "型号=\'" & e.PostValues("xh") & "\' And 规格=\'" & e.PostValues("gg") & "\'"
vals = "|" & DataTables("规格").GetComboListString("颜色", Filter)
End If
e.WriteString(vals)
End Select