求纠正代码为什么不能显示编号为20140901-001而是显示了00010101-001 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你的【录入时间】没有赋值

idx = CInt(max.Substring(9,3)) + 1 '获得最大客户编码的后三位顺序号,并加1

改成

idx = CInt(max.Substring((mendian & bh & "-").Length,3)) + 1 '获得最大客户编码的后三位顺序号,并加1

[此贴子已经被作者于2014-9-1 20:25:25编辑过]

max = e.DataTable.Compute("Max(门店单号)","录入时间 = #" & e.DataRow("录入时间") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大客户编码

改成

max = e.DataTable.Compute("Max(门店单号)","门店单号 like '" & mendian & bh & "-" & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大客户编码

代码不可能有问题，你加入msgbox弹出对应的值看一下哪里错了。

那就是没有满足要求啊。自己看看 mendian & bh & "-" 的值是什么

[此贴子已经被作者于2014-9-1 21:05:39编辑过]

这句改一下

idx = CInt(max.Substring((bh).Length,3)) + 1 '获得最大客户编码的后三位顺序号,并加1

改成

idx = CInt(max.Substring((bh).Length,4)) + 1 '获得最大客户编码的后三位顺序号,并加1

Dim bh As String = Format(e.DataRow("录入时间"),"yyyyMMdd") '取得客户编码的8位前缀
        If e.DataRow("门店单号").StartsWith(bh) = False '如果客户编码的前8位不符
            Dim max As String
            Dim idx As Integer
            Dim mendian As String
            mendian = GetPY( e.DataRow("门店名称"), True)
            'max = e.DataTable.Compute("Max(门店单号)","录入时间 = #" & e.DataRow("录入时间") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大客户编码
            max = e.DataTable.Compute("Max(门店单号)","门店单号 like '" & mendian & bh & "-" & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大客户编码
            If max > "" Then '如果存在最大客户编码
                'idx = CInt(max.Substring(9,3)) + 1 '获得最大客户编码的后三位顺序号,并加1
                idx = CInt(max.Substring((mendian & bh & "-").Length,3)) + 1 '获得最大客户编码的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("门店单号") = mendian & bh & "-" & Format(idx,"000")
        End If

主题：求纠正代码 为什么不能显示编号为20140901-001而是显示了00010101-001

主题：求纠正代码为什么不能显示编号为20140901-001而是显示了00010101-001