加好友 发短信
等级:三尾狐
帖子:790
积分:5677
威望:0
精华:0
注册:2009/4/17 18:42:00
|
重置“工序_班组”列提示错误 Post By:2009/12/20 9:37:00 [只看该作者]
DataColChanged事件: Dim dr As DataRow = e.DataRow Dim dt As DataTable = DataTables("生产工艺") Dim str As String = "图号 = '" & dr("图号") & "' And 工序_序号 = '" & dr("工序_序号") & "' And 派工单号 = '" & dr("派工单号") & "'And 状态 = '执行'" if e.DataCol.Name = "图号" OrElse e.DataCol.Name = "工序_序号" OrElse e.DataCol.Name = "派工单号" Then Dim r As DataRow = dt.Find(str) if r IsNot Nothing Then dr("成本_加工") = (dt.Compute("Sum(成本_加工费元)",str)) dr("成本_工资") = (dt.Compute("Sum(成本_工资元)",str)) dr("工艺工时_准结") = (dt.Compute("Sum(工艺工时_准结)",str)) dr("工艺工时_加工")=(dt.Compute("Sum(工艺工时_加工)",str)) dr("完成工时_准结")=(dt.Compute("Sum(完成工时_准结)",str)) dr("完成工时_加工")=(dt.Compute("Sum(完成工时_加工)",str)) dr("工废损失")=(dt.Compute("Sum(工废损失)",str)) dr("实用工时")=(dt.Compute("Sum(实用工时)",str)) End If End If Select Case e.DataCol.Name Case "工艺工时_准结","工艺工时_加工","完成工时_准结","完成工时_加工","工作时间" dr("完成工时_比例")=(dr("完成工时_准结")+dr("完成工时_加工"))/(dr("工艺工时_准结")+dr("工艺工时_加工")) dr("工艺工时_天数")=(dr("工艺工时_加工")+dr("工艺工时_准结"))/dr("工作时间") dr("完成工时_天数")=(dr("完成工时_准结")+dr("完成工时_加工"))/dr("工作时间") End Select If e.DataCol.Name = "确定" Then '如果是已结帐列的内容变动 If e.NewValue = True Then '而且变动后的值是True(已勾选) e.DataRow.Locked = True '那么锁定此行 End If End If If e.DataCol.Name = "工序_班组" Then dr = DataTables("基础表").Find(" [班组] = '" & e.DataRow("工序_班组") & "'") If dr IsNot Nothing Then e.DataRow("工作时间") = dr("工作时间") Else e.DataRow("工作时间") = Nothing End If End If Dim Sum As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = '" & dr("图号") & "' And [派工单号] = '" & dr("派工单号") & "' And [状态] = '执行' And [工序_序号] <= " & dr("工序_序号")) Dim Sum1 As Double = Tables("生产工序").Compute("Sum(工艺工时_天数)","[图号] = '" & dr("图号") & "' And [派工单号] = '" & dr("派工单号") & "' And [状态] = '执行' And [工序_序号] >= " & dr("工序_序号")) Dim pr As DataRow = dr.GetParentrow("生产目录") dr("工序_完工日期") = pr("到料日期").AddDays(Sum * (pr("生产周期")/pr("工艺工时_天数"))) dr("工序_开工日期") = pr("完工日期").AddDays(-Sum1 * (pr("生产周期")/pr("工艺工时_天数"))+1)此主题相关图片如下:未命名.bmp
|
|