主题：[求助]求助实现多级列表的代码

调拨单中，当项目为空时，从即时库存表提取列表数据

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

求助老师如何编写这样条件的多级列表代码？

做成目录树的形式，参考：http://www.foxtable.com/webhelp/scr/2350.htm

目录树没有多级列表方便呀，我现在的表都是用的多级列表

参考代码

 

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

谢谢老师的指点！