表事件代码有意写成固定值。
实际代码：
Dim dt As DataTable = e.DataTable
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name '020402/锯削/棒料
Case "工步代码", "零件数量", "直径", "直径高度", "工时定额", "加工单价"
If dr("工步代码") = "020402" Then
For Each c As DataCol In dt.DataCols
If c.name <> "工艺单编号" AndAlso c.name <> "工步代码" AndAlso c.name <> "零件数量" AndAlso c.name <> "直径" AndAlso c.name <> "直径高度" AndAlso c.name <> "工时定额"AndAlso c.name <> "加工单价" Then
dr(c) = Nothing
End If
Next
Dim dr1 As DataRow = DataTables("工时定额").Find("工步代码='" & e.DataRow("工步代码") & "' and 最小直径<='" & e.DataRow("直径") & "' and 最大直径>'" & e.DataRow("直径") & "'")
If dr1 IsNot Nothing Then
If dr.IsNull("直径") Then
dr("工时定额") = Nothing
Else
dr("工时定额") = dr1("工时定额")
dr("加工单价") = dr1("加工单价")
End If
Else
If dr.IsNull("直径") Then
dr("工时定额") = Nothing
Else
MessageBox.Show("钻孔直径范围1mm-200mm，输入值不在设定范围！")
dr("直径") = Nothing
dr("工时定额") = Nothing
End If
End If
dr("加工阶段") = "2"
dr("工序") = "锯削"
dr("工步") = "棒料"
dr("估工") = dr("工时定额") * dr("零件数量")
dr("理论加工费") = dr("估工") * dr("加工单价")
dr("工步内容") = "锯" & dr("工步") & "，尺寸φ" & dr("直径") & "×" & dr("直径高度") & "，零件数量" & dr("零件数量") & "件。"
End If
End Select
加好友 
发短信
Post By：2025/3/6 12:39:00 [只看该作者]
此主题相关图片如下：1.png
