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

通过以上代码打开所加要加载工序的日报表窗口，请教如何在日报表窗口上点击添加时，工序名称能自动生产所点击加载的工序：

Dim dr As Row
dr = Tables("日报表").AddNew()
dr("工序") = 这里如何编写

定义一个全局变量：

Public mygs As string

第一段：

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 

        mygs = dr("工序") 
        Forms("日报表").show()
        DataTables("日报表").loadFilter = "工序=  \'" & dr("工序") & "\'"
        DataTables("日报表").load
    End If
End If

第二段

关于全局变量：

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