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("工序") = 这里如何编写