[求助]按年或按月生成编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "合同生成", "调剂日期"
        If e.DataRow("合同生成") = "按年" Then
            Dim d As Date = Date.Today
            Dim bh As String =d.year '取今天日期的年号
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","编号 like '" & bh & "%' ") '取得该月的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(5.4)) + 1 '获得最大编号顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")
        ElseIf e.DataRow("合同生成") = "按月" Then

            If e.DataRow.IsNull("调剂日期") Then
                e.DataRow("编号") = Nothing
            Else
                Dim d As Date = e.DataRow("调剂日期")
                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(编号)","调剂日期 >= #" & fd & "# And 调剂日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
                    If max > "" Then '如果存在最大编号
                        idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1
                    Else
                        idx = 1 '否则顺序号等于1
                    End If
                    e.DataRow("编号") = bh & "-" & Format(idx,"000")
                End If
            End If
        End If
End Select

huaziqiao	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：童狐帖子：94 积分：2970 威望：0 精华：0 注册：2013/12/17 22:22:00	[求助]按年或按月生成编号 Post By：2017/8/28 16:28:00 [只看该作者] 用户已被锁定

huaziqiao	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：童狐帖子：94 积分：2970 威望：0 精华：0 注册：2013/12/17 22:22:00	Post By：2017/8/30 10:28:00 [只看该作者] 用户已被锁定

huaziqiao	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：童狐帖子：94 积分：2970 威望：0 精华：0 注册：2013/12/17 22:22:00	Post By：2017/8/30 13:43:00 [只看该作者] 用户已被锁定

主题：[求助]按年或按月生成编号