以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求集合的相关引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83833)
--  作者：ouyangfenghuan
--  发布时间：2016/4/18 12:06:00
--  求集合的相关引用
新学编程,求老师指导
目的:当"生产日报表"写入"工序"内容时,
         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


谢谢
--  作者：大红袍
--  发布时间：2016/4/18 12:10:00
--  
 请上传对应实例。