Select e.DataCol.Name
Case "生产日期","材料代码"
If e.DataRow.IsNull("生产日期") OrElse e.DataRow.IsNull("材料代码") Then
e.DataRow("生产批号") = Nothing
Else
Dim d As Date = e.DataRow("生产日期")
Dim m As String = iif(d.day<= 25,d.month,iif(d.month = 12 , 1 ,(d.month + 1) ))
Dim y As String = iif(d.day<= 25,d.year,iif(d.month=12,(d.year + 1),d.year) )
'Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = iif(m=1,New Date(y-1,12,26) ,new Date(y,m-1,26))'获得该月的第一天
Dim ld As Date = New Date(y,m,25) '获得该月的最后一天
Dim bh As String = e.DataRow("材料代码") & "-" & y & "-" & format(m,"00") & "-" '生成入库材料序号的前缀
If e.DataRow("生产批号").StartsWith(bh) = False '如果生产批号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "材料代码 = '"& e.DataRow("材料代码") & "' And 生产日期 >= #" & fd & "# And 生产日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.Compute("Max(生产批号)",flt) '取得该月的相同材料代码的最大生产批号
If max > "" Then '如果存在最大生产批号
idx = CInt(max.Substring(21,3)) + 1 '获得最大生产批号的后四位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("生产批号") ="PH-" & bh & Format(idx,"000")
End If
End If
End Select
到了11月26日，提示：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2018.3.3.1
错误所在事件：表，材料入库明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
月份必须介于 1 和 12 之间。
参数名: month
加好友 
发短信
Post By：2018/11/28 12:50:00 [只看该作者]
