[浏览完整版]
标题：自动编号
1楼
13678391902 发表于：2023/11/16 9:52:00
我想根据：“申报年度+卷号”＝“卷内编号”为自动编号？
2楼
有点蓝 发表于：2023/11/16 9:55:003楼
13678391902 发表于：2023/11/16 9:57:00能帮我弄出来不，我看了的，就是看不懂呢。
4楼
有点蓝 发表于：2023/11/16 9:58:00参考【三、按类别编号】的用法就行。什么地方看不懂？
5楼
13678391902 发表于：2023/11/16 10:01:00有两个指标数据显示自动编号：要用“申报年度”和“卷号”来显示自动编号
6楼
有点蓝 发表于：2023/11/16 10:04:00用法都一样的，多判断，多加一个不就行了
Select e.DataCol.Name
Case "申报年度","卷号"
Case "申报年度","卷号"
If e.DataRow.IsNull("类别") orelse e.DataRow.IsNull("卷号") Then
e.DataRow("编号") = Nothing
Else
Dim lb As String = e.DataRow("申报年度") & e.DataRow("卷号")
Else
Dim lb As String = e.DataRow("申报年度") & e.DataRow("卷号")
7楼
13678391902 发表于：2023/11/16 15:24:00老师，请帮我看看什么地方错了？帮我完善下嘛，谢谢了。
这是想要的结果。
这是想要的结果。Select e.DataCol.Name
Case "申报年度","卷号"
If e.DataRow.IsNull("申报年度") OrElse e.DataRow.IsNull("卷号") Then
e.DataRow("本卷编号") = Nothing
Else
Dim lb As String = e.DataRow("申报年度")&e.DataRow("卷号")
If e.DataRow("本卷编号").StartsWith(lb) = False '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(本卷编号)","申报年度,卷号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("本卷编号") = lb & Format(idx,"000")
End If
End If
End Select
8楼
有点蓝 发表于：2023/11/16 15:39:00Select e.DataCol.Name
Case "申报年度", "卷号"
If e.DataRow.IsNull("申报年度") OrElse e.DataRow.IsNull("卷号") Then
e.DataRow("本卷编号") = Nothing
Else
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(本卷编号)", "申报年度 = '" & e.DataRow("申报年度") & "' and 卷号='" & e.DataRow("卷号=") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("本卷编号") = idx
End If
End Select
9楼
13678391902 发表于：2023/11/16 16:50:00老师，现在出现这样提示，再帮我修改下。
10楼
有点蓝 发表于：2023/11/16 17:00:00 max = e.DataTable.Compute("Max(本卷编号)", "申报年度 = '" & e.DataRow("申报年度") & "' and 卷号='" & e.DataRow("卷号") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号