- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 如何多条件自动编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17488)
-- 发布时间：2012/3/14 21:30:00
-- [求助] 如何多条件自动编号
狐爸及各位狐兄，你们好：
小弟学艺不精，参详多天帮助文件中的自动编号，均无法成功，现求助各位，请赐教。
在帮助文件原有按月编号的基础上，增加工程名称判断条件(会有N个工程，固定4个字符) 。
此主题相关图片如下：单据编号.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单据编号.table |
需要下面图片的效果，谢谢。
此主题相关图片如下：单据编号2.png
-- 发布时间：2012/3/14 22:04:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=17393&replyID=&skin=1
-- 发布时间：2012/3/14 22:10:00
--
谢谢yifan3429你的回复，我这里多了一个（工程名称）的条件，与你那个不同，就是这一个条件无法达到，烦请各位师兄及师傅抽空看看，谢谢。
-- 发布时间：2012/3/15 9:19:00
--
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
-- 发布时间：2012/3/15 12:48:00
--
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
-- 发布时间：2012/3/15 18:39:00
--
谢谢狐爸及狐神mr725的热心回复，在此表示感谢。
狐爸的代码未能得到正确结果；
狐神真不是吹出来的，代码精简及答案完全正确，羡慕你。
恳请狐神抽空在代码后面全部加上注释，让更多的同学可以受益，谢谢。