主题：如何选择性打开报表

If e.Node.Level = 1 Then
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim dr As DataRow = DataTables("工序清单").Find("生产线 = '" & ps(0) & "' And 工序 = '" & ps(1) & "'")
    If dr IsNot Nothing Then
        Forms("日报表").show()
        DataTables("日报表").loadFilter = "工序=  '" & dr("工序") & "'"
        DataTables("日报表").load
    End If
End If

好好看看：

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

还有很成表达式的方法：

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