主题：BOM目录树问题，狐爸请看

抱歉，我无法理解你的问题。

那你的问题是什么？

最好做个简单的例子，来说明你所遇到的问题。

1、没有实际的例子，谁也没办法理解和分析你的问题。

2、递归只是一个概念，和具体的对象无关，任何地方都可以使用递归的，当然也包括表和目录树。

什么是于此此产品相关的行？ 请举例说明。

设置NodeMouseClick事件代码为：

 

Tables("BOM").Filter = " 图号 = '" &  e.Node.Name & "'"

 

这里有例子：

http://www.foxtable.com/help/topics/0917.htm

 

Dim nm As String = "'" & e.node.name & "'"
For Each nd As WinForm.TreeNode In e.node.Nodes
   nm = nm & ",'" & nd.name & "'"
Next
Tables("BOM").Filter = "图号 in (" & nm & ")"

你的图片别人看不到的，图片要上传，比人才能看得见。

我不知道你说的a是什么。

很忙，晚上我帮你写一下。

查询按钮的代码设置为：

 

Dim nm As String = e.Form.Controls("ComboBox1").value
If nm = "" Then
    Return
End If
Dim dr As DataRow  = DataTables("表A").Find("标题 = '" & nm  & "'")
If dr Is Nothing Then
    Return
End If
Dim ry As String = dr("键")
Dim kys As String = "'" & ry & "'"
For Each dr1 As DataRow In DataTables("表A").DataRows
    Dim dr2 As DataRow = dr1
    Do
        dr2 = DataTables("表A").Find("键 = '" & dr2("父键")  & "'")
        If dr2 Is Nothing  Then
            Exit Do
        ElseIf dr2("键") = ry Then
            kys = kys & ",'" & dr1("键") & "'"
            Exit Do
        End If
    Loop
Next
Tables("表A").filter = "键 in (" & kys & ")"