【代码修正】代码注释部分如果取消注释，会生成编号，但是不会根据卷宗册数对应【入库明细】表里面生成对应卷宗册数的分册编号数据记录

麻烦修正代码，让注释部分即可以生成编号，其他代码又可以对应完成各自运行谢谢

比如5册卷宗对应新增五条分册编号的入库明细

5-1

5-2

5-3

5-4

5-5

代码如下：

Dim Val1 As String = e.DataRow("所属地州")

Dim Val11 As String = e.DataRow("所属单位")

Dim Val111 As String = e.DataRow("卷宗名称")

Dim Val1111 As String = e.DataRow("卷宗册数")

Dim Val11111 As String= e.DataRow("录入时间")

'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

Dim val0 As String = "所属地州:[" & val1 & "]" & "所属单位:[" & val11 & "]" & "案卷名:[" & val111 & "]" & "册数:[" & val1111 & "]" & "入库时间:[" & Val11111 & "]"

Select Case e.DataCol.Name

Case "所属地州","所属单位","卷宗名称","承办人","承办部门","联系电话"

e.DataRow("加密字符")=EncryptText(Val0,"a23","op#")

Case "卷宗册数"

e.DataRow("加密字符")=EncryptText(Val0,"a23","op#")

For i As Integer = 1 To e.DataRow("卷宗册数")

Dim ndr As DataRow = DataTables("入库明细").find("卷宗编号 = '" & e.DataRow("卷宗编号") & "'")

If ndr Is Nothing Then

ndr = DataTables("入库明细").AddNew

End If

ndr("卷宗名称") = e.DataRow("卷宗名称")

ndr("分册编号")=e.DataRow("卷宗册数") & "--" &0+i

ndr("所属地州") = e.DataRow("所属地州")

ndr("所属单位") = e.DataRow("所属单位")

ndr("卷宗册数") = e.DataRow("卷宗册数")

ndr("录入时间") = e.DataRow("录入时间")

ndr("卷宗编号") = e.DataRow("卷宗编号")

ndr("承办人") = e.DataRow("承办人")

ndr("承办部门") = e.DataRow("承办部门")

ndr("联系电话") = e.DataRow("联系电话")

End Select

主题：【代码修正】代码注释部分如果取消注释，会生成编号，但是不会根据卷宗册数对应【入库明细】表里面生成对应卷宗册数的分册编号数据记录