- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 分享：参照例子setAjaxOptions做移动端级联选择页面，实现四级获取值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135669)
-- 发布时间：2019/5/31 13:55:00
-- 分享：参照例子setAjaxOptions做移动端级联选择页面，实现四级获取值
分享：参照例子setAjaxOptions做移动端级联选择页面，实现四级获取值
有固定资产详情 分类词典 两个表
分类词典如图内容：
此主题相关图片如下：1.png
代码如下
Dim wb As New weui
Select Case e.Path
Case "index.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","index.htm")
With wb.AddInputGroup("form1","ipg1","固定资产资料")
With .AddSelect("资产类别","资产类别","|" & DataTables("分类词典").GetComboListString("资产类别"))
.Attribute = """
End With
With .AddSelect("资产一级分类","资产一级分类","")
.Attribute = """
End With
With .AddSelect("资产二级分类","资产二级分类","")
.Attribute = """
End With
.AddSelect("品牌","品牌","")
注意上述代码被和谐了，具体代码部分详见下图所示：
此主题相关图片如下：4.png
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
.AddButton("btn1","继续增加","index.htm")
End With
e.WriteString(wb.Build)
End If
Case "getProducts.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("分类词典").GetComboListString("资产一级分类","资产类别=\'" & e.PostValues("资产类别") & "\'")
ElseIf e.PostValues.Count = 2 Then
Dim Filter As String = "资产类别=\'" & e.PostValues("资产类别") & "\' And 资产一级分类=\'" & e.PostValues("资产一级分类") & "\'"
vals = "|" & DataTables("分类词典").GetComboListString("资产二级分类", Filter)
Else If e.PostValues.Count = 3 Then
Dim Filter As String = "资产类别=\'" & e.PostValues("资产类别") & "\' And 资产一级分类=\'" & e.PostValues("资产一级分类") & "\'and 资产二级分类=\'" & e.PostValues("资产二级分类") & "\'"
vals = "|" & DataTables("分类词典").GetComboListString("品牌", Filter)
End If
e.WriteString(vals)
End Select
[此贴子已经被作者于2019/5/31 14:53:10编辑过]
-- 发布时间：2019/5/31 16:05:00
--
谢谢分享
-- 发布时间：2019/5/31 21:29:00
-- 回复：（有点甜）谢谢分享
有点甜老师 我想进一步简化这个分类词典表
资产类别 电子设备，办公家具
资产一级分类 电脑终端，打印终端，复印终端，会议设备，扫描设备
资产二级分类 台式机，笔记本，黑白打印机，彩色打印机，黑白复印机，彩色复印机，音响设备
假设分类词典表对应列 有如上多字符
怎么实现这个四级对应级联查询呢？
-- 发布时间：2019/5/31 21:38:00
--
没看懂，截图说明，或者上传具体实例看看
-- 发布时间：2019/5/31 22:16:00
-- 回复：（有点蓝）没看懂，截图说明，或者上传具体实例...
就是能不能用带多个值的数据行来拆分获取值 达到四级获取
此主题相关图片如下：1.jpg
-- 发布时间：2019/5/31 22:35:00
--
那是自己给自己挖坑。
建议还是使用原来的用法
-- 发布时间：2019/6/3 13:28:00
-- 回复：（有点蓝）那是自己给自己挖坑。建议还是使用原...
呵呵 好的 谢谢有点蓝老师