“表B”有：“产品编号”，“产品类型＂等列，要求“产品编号”能根据“产品类型＂和‘日期’自动生成，型号构成要求为：“产品类型”＆‘日期的“MMｄｄ”’＆‘同月，同类型的次序号’。请指导代码该如何写。谢谢！
例如：在表“B”中，“产品类型”列录有内容：‘AB,AD,CB,CD’等多行，需要在“产品编号”列自动按照AB,AD,CB,CD和录入日期（按月）进行分类编号，编号的格式为：‘类型+月+日+次序号’，如：AB0531001,AB0531002,AD0531001,AD0531002,CB0531001,CB0531002,......
要求次序号必须是按月重新从001开始编制。请版主或高手指导，谢谢！
If e.DataCol.Name = "录入日期" Then
If e.DataRow.IsNull("录入日期") Then
e.DataRow("产品编号") = Nothing
Else
Dim d As Date = e.DataRow("录入日期")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1)
Dim ld As Date = New Date(y,m,Days)
Dim bh As String = e.datarow("产品类型") & Format(d,"MMdd")
Dim drs As List(of DataRow) = e.DataTable.Select("录入日期 >= #" & fd & "# And 录入日期 <= #" & ld & "#")
For i As Integer = 0 To drs.Count - 1
drs(i)("产品编号") = bh & format(i+1,"000")
Next
End If
End If
现成的例子,自己修改一下吧.
要获得快的答复和立即就能用的答复，应该自己设计好表，并输入一些测试数据，随问题一起传上来