以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  不同生产工序的信息合成foxtable的表达方法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=1180)

--  作者：hnzxming --  发布时间：2008/11/19 22:10:00 --  不同生产工序的信息合成foxtable的表达方法 不同生产工序的信息合成，便于原材料------成品批号追溯，求助！foxtable的表达方法！ thanks! (1)FindText("口香糖压片作业表存档","表单编号","生产日期", "=" ,[糖片日期],"班次", "=" ,[糖片班次],"品种", "=", [品种]) (2)FindText("木糖醇包衣作业表存档","表单编号","品种","=",[糖衣片品种],"生产日期","=",[糖衣片日期],"班次", "=" ,[糖衣片班次]) (3)FindText("木糖醇包衣作业表存档","压芯作业表单编号","表单编号", "=" ,[包衣作业表单编号]) (4)FindText("木糖醇包衣作业表存档","烧浆作业表单编号","表单编号", "=" ,[包衣作业表单编号]) (1)------------口香糖包装作业表中的列 (2---------4）木糖醇装瓶作业表中的三个列

--  作者：程兴刚 --  发布时间：2008/11/19 22:34:00 --   提问题最好上传附件，否则，谁给您再去设计一个表结构？否则，调试很不方便，大家都在学习中，一次性写出一个完整的代码还是有点难度的！

--  作者：ybil --  发布时间：2008/11/19 22:41:00 --   (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编辑过]

--  作者：程兴刚 --  发布时间：2008/11/19 22:42:00 --   呵呵，还是大师手快，学习！