主题：[求助] 如何多条件自动编号

狐爸及各位狐兄，你们好：

      小弟学艺不精，参详多天帮助文件中的自动编号，均无法成功，现求助各位，请赐教。

 

在帮助文件原有按月编号的基础上，增加工程名称判断条件(会有N个工程，固定4个字符) 。

 

此主题相关图片如下：单据编号.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单据编号.table

需要下面图片的效果，谢谢。

此主题相关图片如下：单据编号2.png

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=17393&replyID=&skin=1

谢谢yifan3429你的回复，我这里多了一个（工程名称）的条件，与你那个不同，就是这一个条件无法达到，烦请各位师兄及师傅抽空看看，谢谢。

 

Select  e.DataCol.Name
    Case = "制单日期","工程名称"
        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 = e.DataRow("工程名称") & "-CLRK-"  & Format(d,"yyyyMM") & "-"  '生成该月编号的前缀
            If e.DataRow("单据编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(单据编号)","制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "#") '取得该月的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(17,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("单据编号") = bh  & Format(idx,"0000")
            End If
        End If
End Select

Select  e.DataCol.Name
    Case = "制单日期","工程名称"
        If e.DataRow.IsNull("制单日期") OrElse 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 = e.DataRow("工程名称") & "-CLRK-"  & Format(d,"yyyyMM") & "-"  '生成该月编号的前缀

            Dim idx As Integer
            idx = e.DataTable.Compute("Count(单据编号)","单据编号 like '" & bh _
            & "*' and [_identify] < " & e.DataRow("_identify") & " ") +1
            e.DataRow("单据编号") = bh  & Format(idx,"0000")

        End If
End Select

谢谢狐爸及狐神mr725的热心回复，在此表示感谢。

狐爸的代码未能得到正确结果；

狐神真不是吹出来的，代码精简及答案完全正确，羡慕你。

 

恳请狐神抽空在代码后面全部加上注释，让更多的同学可以受益，谢谢。