主题：不同生产工序的信息合成foxtable的表达方法

(1)的,其余类推
Dim Dt As DataTable = DataTables(("口香糖压片作业表存档")
Dim va As Data = e.DataRow("糖片日期")
Dim va1,va2,T  As String
va1 = e.DataRow("糖片班次")
va2 = e.DataRow("品种")
T = "生产日期 = #" & Va & "# and 班次 = ' " & va1 & "' and 品种 = '" & va2 & "'"
If Dt.Find(T) ISNot Nothing Then
     e.DataRow(e.DataCol.Name) =Dt.Find(T)("表单编号")
End If