Select Case e.Path
Case "testllh.htm"
Dim wb As New weui
wb.AddForm("","form1","testllh.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
With .AddSelect("xh","型号","|" & DataTables("表A").GetComboListString("型号"))
.Attribute = """
End With
With .AddSelect("gg","规格","")
.Attribute = """
End With
.AddSelect("ys","颜色","")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Case "getProductsllh.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("表A").GetComboListString("规格","型号='" & e.PostValues("xh") & "'")
MessageBox.Show(vals)
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "型号='" & e.PostValues("xh") & "' And 规格='" & e.PostValues("gg") & "'"
vals = "|" & DataTables("表A").GetComboListString("颜色", Filter)
MessageBox.Show(vals)
End If
e.WriteString(vals)
End Select
请教一下老师，上面这段代码复制帮助里面的，次级列表不生效
加好友 
发短信
Post By：2018/11/7 19:52:00 [只看该作者]
