专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按年或按月生成编号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105884)

--  作者：有点甜
--  发布时间：2017/8/28 17:31:00
--

参考

http://www.foxtable.com/webhelp/scr/2403.htm

--  作者：有点甜
--  发布时间：2017/8/30 10:37:00
--

If e.DataCol.Name = "合同生成" Then

    If e.DataRow("合同生成") = "按年" then

        \'参考 http://www.foxtable.com/webhelp/scr/2403.htm

    ElseIf e.DataRow("合同生成") = "按月" Then

        \'参考 http://www.foxtable.com/webhelp/scr/2403.htm

    End If

End If

--  作者：有点甜
--  发布时间：2017/8/30 14:26:00
--
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