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

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

第二段

 

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

 

关于全局变量：

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

 

谢谢