- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 手机网页动态列表项目 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127186)
-- 发布时间：2018/11/7 19:52:00
-- 手机网页动态列表项目
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
请教一下老师，上面这段代码复制帮助里面的，次级列表不生效
-- 发布时间：2018/11/7 19:56:00
--
参考
http://www.foxtable.com/mobilehelp/scr/0103.htm
不然，做一个对应的实例发上来测试
-- 发布时间：2018/11/7 20:06:00
--
项目已上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.rar |
-- 发布时间：2018/11/7 21:36:00
--
你weui文件夹文件的问题，更新到最新
http://www.foxtable.com/download/mobile/weui.zip
解压会得到三个文件，分别是：
weui.me.js
weui.me.css
weui.min.css
-- 发布时间：2018/11/8 8:09:00
--
可以了，非常感谢