订单明细表已经有相关订单，以前没有对订单进行编号，现在希望根据订单日期列的值，对每一行进行添加编号，格式为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
加好友 
发短信
Post By：2020/3/14 2:29:00 [显示全部帖子]
此主题相关图片如下：万能五笔截图_20200314110038.png