订单明细表已经有相关订单,以前没有对订单进行编号,现在希望根据订单日期列的值,对每一行进行添加编号,格式为4位年2位月-00001五位整数编号,如201908-00005,编码如下,一直有报错,请问需要怎么修改啊,求助!谢谢!
DataTables("订单明细表").StopRedraw
Dim dt As DataTable = DataTables("订单明细表")
Dim dat As List(of String) =dt.GetValues("订单日期")
For Each mn As String In dat
Dim y As String = cdate(mn).year
Dim m1 As Integer = cdate(mn).month
Dim m As String = Format(m1,"00")
Dim z As String = y & m
Dim drs As List(of DataRow)
drs = DataTables("订单明细表").Select("[订单日期] = mn")
For Each r As DataRow In drs
Dim sum As Integer
sum = sum+1
Dim sum1 As String = format(sum,"00000")
r("订单编号1") = z & "-" & sum1
Next
Next
DataTables("订单明细表").ResumeRedraw