Select e.DataCol.Name
Case "年度批号"
If e.DataRow.IsNull("年度批号") Then
e.DataRow("产品批号") = Nothing
Else
Dim lb As String = e.DataRow("年度批号")
If e.DataRow("产品批号").StartsWith(lb) = False '如果单据产品批号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.SQLCompute("Max(产品批号)","年度批号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该年度批号的最大产品批号
If max > "" Then '如果存在最大产品批号
idx = CInt(max.Substring(6,5)) + 1 '获得最大产品批号并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("产品批号") = lb & Format(idx,"00000")
e.DataRow.save
End If
End If
End Select