主题：[分享]部分数据加载下自动编号生成方法

一、根据帮助，将表DataColChanged事件代码设置为：

Select e.DataCol.Name

    Case "工程代码"

        If e.DataRow.IsNull("工程代码") Then

            e.DataRow("单据编号") = Nothing

        Else

            Dim bh As String = e.DataRow("工程代码") & "-" '生成编号的前缀

            If e.DataRow("单据编号").StartsWith(bh) = False  Then'如果单据编号前缀不符

                Dim max As String

                Dim idx As Integer

                Dim flt As String

                flt = "工程代码 = '" & e.DataRow("工程代码") & "' And [_Identify] <> " & e.DataRow("_Identify")

                max = e.DataTable.Compute("Max(单据编号)", flt) '取得该月的相同工程代码的最大单据编号

                If max > "" Then '如果存在最大单据编号

                    idx = CInt(max.Substring(4, 4)) + 1 '获得最大单据编号的后四位顺序号,并加1

                Else

                    idx = 1 '否则顺序号等于1

                End If

                e.DataRow("单据编号") = bh & Format(idx, "0000")

            End If

        End If

End Select

生成以下效果编号：

此主题相关图片如下：4.png

二、部分数据加载情况下会出现的问题及解决办法:

  1、取最大编号错误，解决办法可以将红色代码部分修改为:

max = e.DataTable.SQLCompute("Max(单据编号)", flt) '取得该月的相同工程代码的最大单据编号

  2、如果是部分数据加载，同时又有未保存数据的情况下，取最大编号同样会出现错误，代码修改为（将max变量改为max1、max2根据不同统计赋值）:

Select e.DataCol.Name

    Case "工程代码"

        If e.DataRow.IsNull("工程代码") Then

            e.DataRow("单据编号") = Nothing

        Else

            Dim bh As String = e.DataRow("工程代码") & "-" '生成编号的前缀

            If e.DataRow("单据编号").StartsWith(bh) = False Then'如果单据编号前缀不符

                Dim idx As Integer

                Dim flt As String

                flt = "工程代码 = '" & e.DataRow("工程代码") & "' And [_Identify] <> " & e.DataRow("_Identify")

                Dim max1 As String 

                max1 = e.DataTable.Compute("Max(单据编号)", flt) '从Table取得该月的相同工程代码的最大单据编号

                Dim max2 As String 

                max2 = e.DataTable.SQLCompute("Max(单据编号)", flt) '从后台取得该月的相同工程代码的最大单据编号

                If max1 > "" Then '如果table存在最大单据编号

                    If max2 > "" Then '如果后台存在最大单据编号

                        idx = Math.Max(CInt(max1.Substring(4, 4)), CInt(max2.Substring(4, 4))) '比较取最大值

                    Else

                        idx = CInt(max1.Substring(4, 4)) 

                    End If 

                Else 

                    If max2 > "" Then '如果后台存在最大单据编号

                        idx = CInt(max2.Substring(4, 4)) 

                    Else

                        idx = 0

                    End If 

                End If

                If idx >= 0 Then

                    idx = idx + 1 '否则顺序号等于1

                End If

                e.DataRow("单据编号") = bh & Format(idx, "0000")

            End If

        End If

End Select

此代码适合小白，大神见笑了！