If e.DataCol.Name = "产品名称" Then
If e.DataRow.IsNull("产品名称") Then
e.DataRow("产品编码") = Nothing
Else
e.DataRow("产品编码") = GetPy(e.DataRow("产品名称"), 1)
End If
End If
If e.DataCol.Name = "订货日期" Then
If e.DataRow.IsNull("订货日期") Then
End If
e.DataRow("产品编码") = Nothing
Dim bh As String = e.DataRow("产品编码") & Format(cdate(e.DataRow("订货日期")),"yyyyMMdd")
If e.DataRow("订货编码").StartsWith(bh) = False
Dim max As String
Dim idx As Integer
If e.DataRow.IsNull("产品编码") Then
max = e.DataTable.Compute("Max(订货编码)","产品编码 is null And 订货日期= #" & e.DataRow("订货日期") & "# And [_Identify] <> " & e.DataRow("_Identify"))
Else
End If
End If
End If
如订货日期:2017-05-11,2017-05-11;订货编码显示为：20170511-001,20170511-002；产品名称如：麻醉包，产品编码显示为：MZB
加好友 
发短信
Post By：2017/5/10 15:11:00 [只看该作者]
