共4 条记录, 每页显示 10 条, 页签: [1]

标题：帮助文档中编号的生成

1楼

侠客1985 发表于：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位不符
            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函数算出某一月的最大编号程序是如何让编号后三位递增的呢，帮助文档讲得不详细啊！

2楼

有点蓝 发表于：2024/1/14 19:53:00

【将bh的赋值给编号的前6位的程序？】这个是什么意思？没看懂

【idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1】后面不是有详细的注释说明么！最大编号+1不就是递增了吗？

3楼

侠客1985 发表于：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编辑过]

4楼

有点蓝 发表于：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个函数的用法。

共4 条记录, 每页显示 10 条, 页签: [1]