目录树里面的内容，是在窗口里面设计好的。

 你可以在 DropDownOpened 事件，动态生成目录树 http://www.foxtable.com/help/topics/0894.htm

 
此主题相关图片如下：001.jpg

关与排序问题，请问可否按行的默认顺序排列，如下图这样。谢谢

BuildTree不是有排序设置的吗？

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "产品|客户|雇员", "", "_Sortkey")

相当的完美 是有排序  不懂的是这个_Sortkey   感谢了

师傅又来了一个新问题  DropDownBox控件 ValueChanged事件写入以下代码后，代码的功能可以实现，但是点击DropDownForm窗口确认控件时，我在目录树里面选择的值无法写入DropDownBox控件。

以前用的是ComboBox控件，代码写在SelectedIndexChanged事件。但是这个控件没有复选的功能，我有时需要选择2到3个值。谢谢

If e.Sender.Text = "无" Then
    Tables("生产进度表").Current("裁片工艺_回厂") = True
Else
    Tables("生产进度表").Current("裁片工艺_回厂") = False
End If

Dim trv As WinForm.TreeView = e.form.controls("TreeView1")
Dim str As String = ""
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Nodes.Count = 0 Then
        If nd.Checked Then
            str &= nd.Text & ","
        End If
    End If
next

e.Form.DropDownBox.Value = str.Trim(",")