表格下拉目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、如上图所示：最终需要实现的目标是在图二：表B（数据表来源为图一：表A）的下拉框中显示如图三类似的目录如一级目录显示：1 总建面；二级目录显示1.1 地下建面。需要如何操作?

目前初步编制代码如下：

Dim kjml As New DropTreeBuilder

kjml.SourceTable = DataTables("表B)

kjml.TreeCols = "{序号}"

kjml.PathSeparator = "."

kjml.SourceCols = "计算口径"

kjml.ReceiveCols = "计算口径_内容"

kjml.ContentSeparator = "."

kjml.SeparateContent = False

Tables("表A").Cols("计算口径_内容").DropTree = kjml.Build()

2、如果中用Combolist实现下拉操作，能否实现上述显示？或者这个如何序号进行排序：

'Tables("表A").Cols("计算口径_内容").Combolist = DataTables("表B").GetComboListString("计算口径")

主题：表格下拉目录树