主题：自动编号

Select e.DataCol.Name
    Case "编码"
        If e.DataRow.IsNull("编码") Then
            e.DataRow("产品编号") = Nothing
        Else
            Dim lb As String = e.DataRow("编码")
            If e.DataRow("产品编号").StartsWith(lb) = False '如果单据产品编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(产品编号)","编码 = '" & lb & "'") '取得该编码的最大产品编号
                If max > "" Then '如果存在最大产品编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大产品编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("产品编号") = lb & Format(idx,"000")
            End If
        End If
End Select

 

上面这句代码  我在使用时我为什么  对应的行偏差110行  那里出了问题  

我要的是 dd001  结果是 er001   向上偏移了10行

此主题相关图片如下：360桌面截图20120405112952.jpg


此主题相关图片如下：360桌面截图20120405113425.jpg

 

实例上传 求解

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

点击浏览该文件:管理项目1.foxdb

代码看不出问题，用简单的例子说话。

你这个,不会对的吧,如何匹配这个编码呢?

数据源呢?

代码没错,位置错了.

我放在表事件 DataColChanging  不对

 

 

搞定了应该放在表事件DataColChanged  自己理解错误

 

 

谢谢老师