[求助]错误代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "入库单编号"

End Select

你必须删除重新输入入库单号，才会编号的。

可以啊，如果要方便，就重置列：选中入库单编号，重置

http://www.foxtable.com/help/topics/1469.htm

看6楼，然后改成这样

Select Case 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 '如果入库单编号明细前缀不符

                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

End Select

6楼叫你重置列了。

以下是引用风声在2014-6-11 21:51:00的发言：
怎样重置列谢谢指教

选中那一列（点击标题），然后点击菜单的重置列按钮

以下是引用风声在2014-6-11 22:04:00的发言：
没有用，烦死了。我把这一列删除了再插入也没有用。

去到入库明细，点入库单编号，点重置列，我试了可以

以下是引用风声在2014-6-11 22:25:00的发言：
不是入库单编号而是入库单编号明细列。这个代码应该写在那个代码事件里。

[此贴子已经被作者于2014-6-11 22:26:36编辑过]

你要选中入库单编号列，然后点击重置列，这么简单的操作，你试过了吗？

以下是引用风声在2014-6-11 22:30:00的发言：
试过了

在入库明细表，入库单编号，选中全部，点重置列，不可能不行。

[此贴子已经被作者于2014-6-11 22:31:13编辑过]

以下是引用风声在2014-6-11 22:45:00的发言：
你必修有第二行的入库单编号明细的单号在行。有其他代码代替吗？

完全理解不了你的意思，输入入库单编号，就自动生成明细单编号了啊。

主题：[求助]错误代码