主题：自动生成流水号标签

参考

For i As Integer = 20 To 121
    Dim ndr As DataRow = DataTables("表a").AddNew
    ndr("第二列") = format(Date.today, "yyMM") & format(i, "0000")
Next