Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
hnzxming 发表于:2008/11/19 22:10:00
不同生产工序的信息合成,便于原材料------成品批号追溯,求助!foxtable的表达方法! thanks! (1)FindText("口香糖压片作业表存档","表单编号","生产日期", "=" ,[糖片日期],"班次", "=" ,[糖片班次],"品种", "=", [品种]) (2)FindText("木糖醇包衣作业表存档","表单编号","品种","=",[糖衣片品种],"生产日期","=",[糖衣片日期],"班次", "=" ,[糖衣片班次]) (3)FindText("木糖醇包衣作业表存档","压芯作业表单编号","表单编号", "=" ,[包衣作业表单编号]) (4)FindText("木糖醇包衣作业表存档","烧浆作业表单编号","表单编号", "=" ,[包衣作业表单编号]) (1)------------口香糖包装作业表中的列 (2---------4)木糖醇装瓶作业表中的三个列
2楼
程兴刚 发表于:2008/11/19 22:34:00
提问题最好上传附件,否则,谁给您再去设计一个表结构?否则,调试很不方便,大家都在学习中,一次性写出一个完整的代码还是有点难度的!
3楼
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编辑过]
4楼
程兴刚 发表于:2008/11/19 22:42:00
呵呵,还是大师手快,学习!
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.