新学编程,求老师指导
目的:当"生产日报表"写入"工序"内容时,
1:根据产品"订单编号"提取该产品的最后一天的所有生产记录;
2:自动向"订单跟踪表"的"现在进程"列写入该产品编号的最后一天的所有不重复的工序内容.
3:根据所有不重复的工序内容的"生产日报表"的"机台"列的内容判断该产品的所在部门位置,并写入"订单工资表"的"所在部门"列. 判断原则:如果机台列的内容包含"车"字,所在部门为"车床部",内容包含"铣",所在部门为"铣床部",内容包含在(自定义数组1)的内容时,所在部门为"包装部".
Select Case e.DataCol.name '填写进度到订单跟踪表
Case "工序"
Dim cnt3 As Double '
cnt3 = DataTables("生产日报表").Compute("??([工序])", "[订单编号] = '" & e.DataRow("订单编号") & "'")
Dim dr As DataRow '同步更新跟踪表
Dim Filter13 As String
Filter13 = "[订单表序号] = '" & e.DataRow("订单编号") & "'"
dr = DataTables("订单跟踪表").Find(Filter13 )
If dr IsNot Nothing Then '如果找到
dr("现在进程")=cnt?
dr("所在部门")=cnt?
Else
MessageBox.Show("订单跟踪表无对应订单")
End If
End Select
谢谢
加好友 
发短信
Post By：2016/4/18 12:06:00 [显示全部帖子]
