主题：[求助]错误代码

此主题相关图片如下：错误代码.png
老师我在设置编号保存时出现的。

 

Select Case e.DataCol.Name

     Case "入库单编号"

 

 End Select

        If e.DataRow.IsNull("入库单编号") Then

            e.DataRow("入库单编号明细") = Nothing

        Else

            Dim bh As  String = e.DataRow("入库单编号")

            If e.DataRow("入库单编号明细").StartsWith(bh) = False  '如果入库单编号明细前缀不符

                Dim max  As  String

                Dim idx  As  Integer

                Dim count As Integer = e.DataTable.Compute("Count(_Identify)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify"))

                If count > 0 Then

                   

                    max = e.DataTable.Compute("Max(入库单编号明细)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大入库单编号

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

                        Dim l As Integer = bh.Length

                        idx = CInt(max.Substring(l,3)) + 1  '获得最大入库单编号的后两位顺序号,并加1

                    Else

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

                    End  If

                    e.DataRow("入库单编号明细") = bh & Format(idx,"000")

                End If

            End  If

        End If

此主题相关图片如下：编号明细.png

入库单编号明细列的第一行没有自动添加编号

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰管理.table

l老师，不行阿。

老师帮我改一下吧，谢谢了。

还是这个问题

怎样重置列谢谢指教

没有用，烦死了。我把这一列删除了再插入也没有用。

不是入库单编号而是入库单编号明细列。这个代码应该写在那个代码事件里。

试过了，有时候行有时候不行，而且要换表操作。 他的排序是倒过来的。

你必修有第二行的入库单编号明细的单号在行。有其他代码代替吗？