特殊编号--已解决 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题已解决.
Select e.DataCol.Name
    Case "第二列","第三列","第四列"
        If e.DataRow.IsNull("第二列") OrElse e.DataRow.IsNull("第三列") OrElse e.DataRow.IsNull("第四列") Then
            e.DataRow("第五列") =Nothing
        Else
            Dim lb As String = e.DataRow("第二列") & "-" & e.DataRow("第三列") & "-" & e.DataRow("第四列") '生成编号的前缀
            Dim max As String
            Dim idx As Integer
            Dim d As String =e.DataRow("第二列")
            Dim t As String =e.DataRow("第三列")
            Dim s As String =e.DataRow("第四列")
'
            max = e.DataTable.Compute("Max(第五列)","第二列 = '" & d &"' And 第三列 ='" & t &"' And 第四列 ='" & s &"'   And [_Identify] <> " & e.DataRow("_Identify")) ' [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                'idx = CInt(max) + 1
                idx = CInt(max.Substring(lb.Length+1,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("第五列") = lb & "-" & Format(idx,"000")
            e.DataRow("第六列") = idx
        End If
End Select

主题：特殊编号--已解决