不同生产工序的信息合成,便于原材料------成品批号追溯,求助!foxtable的表达方法! thanks!
(1)FindText("口香糖压片作业表存档","表单编号","生产日期", "=" ,[糖片日期],"班次", "=" ,[糖片班次],"品种", "=", [品种])
(2)FindText("木糖醇包衣作业表存档","表单编号","品种","=",[糖衣片品种],"生产日期","=",[糖衣片日期],"班次", "=" ,[糖衣片班次])
(3)FindText("木糖醇包衣作业表存档","压芯作业表单编号","表单编号", "=" ,[包衣作业表单编号])
(4)FindText("木糖醇包衣作业表存档","烧浆作业表单编号","表单编号", "=" ,[包衣作业表单编号])
(1)------------口香糖包装作业表中的列
(2---------4)木糖醇装瓶作业表中的三个列
提问题最好上传附件,否则,谁给您再去设计一个表结构?否则,调试很不方便,大家都在学习中,一次性写出一个完整的代码还是有点难度的!
(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
[此贴子已经被作者于2008-11-20 9:27:25编辑过]