- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 帮助文档中编号的生成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190069)
-- 发布时间：2024/1/14 19:40:00
-- 帮助文档中编号的生成
If e.DataCol.Name = "日期"
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位不符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位月.
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
老师在该程序中为什么没有将bh的赋值给编号的前6位的程序？利用max函数算出某一月的最大编号程序是如何让编号后三位递增的呢，帮助文档讲得不详细啊！
-- 发布时间：2024/1/14 19:53:00
--
【将bh的赋值给编号的前6位的程序？】这个是什么意思？没看懂
【idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1】后面不是有详细的注释说明么！最大编号+1不就是递增了吗？
-- 发布时间：2024/1/14 20:45:00
-- 自动排序
老师，下面的程序编号并没有生成，怎么会判断编号是否以bh开头？
Dim bh As
String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前6位不符
对于下表，5月份的最大编号在2011-05-20产生，找到这个日期对应的为最大编号，此idx = CInt(max.Substring(7,3)) + 1具体怎么实现让编号增加1呢？
[此贴子已经被作者于2024/1/14 20:46:05编辑过]
-- 发布时间：2024/1/14 20:59:00
--
判断的目的是：可能曾经手工录入了不正确的编号，或者没有录入过编号，【If e.DataRow("编号").StartsWith(bh) = False】这个判断都符合这2中情况，这时就需要重新生成编号。假设【2011-05-20】这天已经有编号，编号是201105-003，不符合【If e.DataRow("编号").StartsWith(bh) = False】要求，就不需要重新生成了。
如果这时新增一行，日期录入【2011-05-21】，由于编号没有数据符合【If e.DataRow("编号").StartsWith(bh) = False】要求，开始计算编号，max获取已经录入的最大编号就是【201105-003】，【max.Substring(7,3)】计算的结果就是003，【CInt(max.Substring(7,3)) + 1】就等于是【CInt(003) + 1】，结果等于4，那么【e.DataRow("编号") = bh & "-" & Format(idx,"000")】的结果就是相当于【e.DataRow("编号") = "201105-003"】
建议帮助搜索Compute、Substring、CInt、Format，了解这4个函数的用法。