Foxtable(狐表)用户栏目专家坐堂 → 关于根据订单日期列给订单添加订单编号的问题


  共有2886人关注过本帖树形打印复制链接

主题:关于根据订单日期列给订单添加订单编号的问题

帅哥哟,离线,有人找我吗?
温馨的大树
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:224 积分:1695 威望:0 精华:0 注册:2020/2/3 11:16:00
关于根据订单日期列给订单添加订单编号的问题  发帖心情 Post By:2020/3/14 2:29:00 [只看该作者]


订单明细表已经有相关订单,以前没有对订单进行编号,现在希望根据订单日期列的值,对每一行进行添加编号,格式为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

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/3/14 5:18:00 [只看该作者]

    drs = DataTables("订单明细表").Select("[订单日期] = #" & mn & "#")

 回到顶部
帅哥哟,离线,有人找我吗?
温馨的大树
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:224 积分:1695 威望:0 精华:0 注册:2020/2/3 11:16:00
回复:(程兴刚)    drs = DataTables("订...  发帖心情 Post By:2020/3/14 11:06:00 [只看该作者]

你好老师,修改了代码如下并执行,结果出现一个问题,如附件,想要的是编号规则是按照四位年两位月份作为前缀,再加“-”和“00000”格式的月订单流水号,但是目前代码不能实现月度流水号编号,请问怎么解快啊,谢谢!

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("订单编号") = z & "-" & sum1
Next
DataTables("订单明细表").ResumeRedraw

图片点击可在新窗口打开查看此主题相关图片如下:万能五笔截图_20200314110038.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/14 11:29:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/3/14 16:05:00 [只看该作者]

DataTables("订单明细表").StopRedraw
Dim dt As DataTable = DataTables("订单明细表")
Dim dat As List(of String) =dt.GetValues("订单日期")
Dim d1,d2 As Date
Dim Days As Integer
For Each mn As String In dat
    Dim y As String = cdate(mn).year
    Dim m1 As Integer = cdate(mn).month
    d1= cdate(mn).AddMonths(-1)
    days = Date.DaysInMonth(d1.year,d1.Month)
    d1 = d1.Adddays(days - d1.day)
    d2 = d1.AddMonths(1)
    days = Date.DaysInMonth(d2.year,d2.Month)
    d2 = d2.Adddays(days - d2.day).adddays(1)
    Dim m As String = Format(m1,"00")
    Dim z As String = y & m
    Dim drs As List(of DataRow)
    drs = DataTables("订单明细表").Select("[订单日期] > #" & d1 & "# And [订单日期] < #" & d2 & "#")
    For Each r As DataRow In drs
        Dim sum As Integer
        sum = sum+1
        Dim sum1 As String = format(sum,"00000")
        r("订单编号") = z & "-" & sum1
    Next
Next
DataTables("订单明细表").ResumeRedraw

[此贴子已经被作者于2020/3/14 16:06:51编辑过]

 回到顶部