主题：如何自动添加上一行的信息

定义一个全局变量：

 

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

第二段

 

Dim dr As Row
dr = Tables("日报表").AddNew()
dr("工序") = mygs

 

关于全局变量：

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