Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动编号问题


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

主题：自动编号问题
帅哥哟，离线，有人找我吗？
18920118515
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		自动编号问题  发帖心情 Post By：2022/7/10 15:13:00 [只看该作者]

老师，我在DataRowAdding事件中写入自动编码代码，运行错误，不能实现按照月份编号，是否自动编号代码不能写在新增行的事件中

Dim d As Date = Date.today
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 = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
If e.DataRow("关联索引列").StartsWith(bh) = False '如果编号的前6位不符
    Dim max As String
    Dim idx As Integer
    max = e.DataTable.Compute("Max(关联索引列)","#" & d & "# >= #" & fd & "# And #" & d & "# <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(7,4)) + 1 '获得最大编号的后四位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("关联索引列") = bh & "-" & Format(idx,"0000")
End If
[此贴子已经被作者于2022/7/10 15:13:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/10 21:16:00 [只看该作者]

Dim d As Date = Date.today
Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
    Dim max As String
    Dim idx As Integer
    max = e.DataTable.Compute("Max(关联索引列)","Substring(关联索引列,1,6)='" & bh & "'") '取得该月的最大编号
    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(7,4)) + 1 '获得最大编号的后四位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("关联索引列") = bh & "-" & Format(idx,"0000")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/7/11 11:17:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/7/11 11:47:00 [只看该作者]

老师，您再帮我看看，下边这段代码怎么改，代码格式应该为：“2位字母-yyyymm-4位顺序号”，受累老师，我试了几次都不行

Dim d As Date = Date.today

        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,"yyyyMM") & "-" '生成编号的前缀

        If e.DataRow("关联索引二列").StartsWith(bh) = False '如果编号的前10位不符

            Dim max As String

            Dim idx As Integer

            Dim flt As String

            flt = "线索来源 = '"& e.DataRow("线索来源") & "' And #" & d & "#  >= #" & fd & "# And #" & d & "#  <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

            max = e.DataTable.Compute("Max(关联索引二列)",flt) '取得该月的相同类别代码的最大单据编号

            If max > "" Then '如果存在最大编号

                idx = CInt(max.Substring(10,4)) + 1 '获得最大编号的后三位顺序号,并加1

            Else

                idx = 1 '否则顺序号等于1

            End If

            e.DataRow("关联索引二列") = bh & Format(idx,"0000")

        End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/11 11:51:00 [只看该作者]

这种只能到datacolchanged事件处理，并且必须有一个日期列
[此贴子已经被作者于2022/7/11 11:51:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/7/11 11:58:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/7/12 13:42:00 [只看该作者]

老师，您帮我看下代码有什么问题，执行后报错，系统显示Substring有问题，我是在DataColChanged事件中写的，“关联索引二列”的最终格式为：两位字母-YYYYMM-四位序号，您受累给指导下
Else If e.DataCol.Name = "线索来源" Then
    If e.DataRow("关联索引二列") = Nothing Then
        e.DataRow("编号日期") = Date.today
        Dim d As Date = e.DataRow("编号日期") 
        Dim bh As String = e.DataRow("线索来源") & "-" & Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(关联索引二列)","Substring(关联索引二列,0,10)='" & bh & "'") '取得该月的最大编号
        If max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(10,4)) + 1 '获得最大编号的后四位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("关联索引二列") = bh & "-" & Format(idx,"0000")
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/12 14:02:00 [只看该作者]

    If e.DataRow.isnull("关联索引二列") Then
        e.DataRow("编号日期") = Date.today
        Dim d As Date = e.DataRow("编号日期") 

        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,"yyyyMM") '生成编号的前6位,4位年,2位月.
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(关联索引二列)","线索来源='" & e.DataRow("线索来源") & "' and 编号日期>=#" & fd & "# and 编号日期<=#" & ld & "# and  [_Identify] <> " & e.DataRow("_Identify")") '取得该月的最大编号
        If max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(max.length - 4)) + 1 '获得最大编号的后四位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("关联索引二列") = bh & "-" & Format(idx,"0000")
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/7/12 14:58:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
18920118515
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：76 积分：735 威望：0 精华：0 注册：2020/12/20 14:02:00 		  发帖心情 Post By：2022/9/5 12:23:00 [只看该作者]

xiexielaoshi 
[此贴子已经被作者于2022/9/5 12:32:51编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询