- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求助实现多级列表的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94529)
-- 发布时间：2016/12/26 2:01:00
-- [求助]求助实现多级列表的代码
调拨单中，当项目为空时，从即时库存表提取列表数据
If e.IsFocusCell Then
If e.Col.Name = "物料名称" Then
e.Col.Combolist = DataTables("即时库存").GetComboListString("物料名称", "[类别] = \'" & e.Row("类别") & "\' and [库存数量] >0")
End If
End If
当项目不为空时，则从项目材料表中提取列表数据，根据
部门→工程项目→类别→物料名称
实现多级列表
此主题相关图片如下：qq图片20161226014526.png
此主题相关图片如下：qq图片20161226014459.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2016.zip |
求助老师如何编写这样条件的多级列表代码？
[此贴子已经被作者于2016/12/26 2:11:58编辑过]
-- 发布时间：2016/12/26 8:48:00
--
做成目录树的形式，参考：http://www.foxtable.com/webhelp/scr/2350.htm
-- 发布时间：2016/12/26 9:53:00
--
目录树没有多级列表方便呀，我现在的表都是用的多级列表
-- 发布时间：2016/12/26 10:09:00
--
参考代码
If e.IsFocusCell Then
If e.Col.Name = "物料名称" Then
If e.Row.IsNull("物料名称") Then
e.Col.Combolist = DataTables("即时库存").GetComboListString("物料名称", "[类别] = \'" & e.Row("类别") & "\' and [库存数量] >0")
Else
e.Col.Combolist = DataTables("项目材料").GetComboListString("物料名称", "部门 = \'" & e.Row("部门") & "\' and 工程项目 = \'" & e.Row("工程项目") & "\' And [类别] = \'" & e.Row("类别") & "\'")
End If
End If
End If
-- 发布时间：2016/12/26 10:35:00
--
谢谢老师的指点！
