主题：[求助]编号

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

点击浏览该文件:编号.table

此主题相关图片如下：图像 1.png

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

点击浏览该文件:编号.table

此主题相关图片如下：图像 2.png

Select e.DataCol.Name
    Case "名称"
        If e.NewValue > "" Then
            e.DataRow("类别") = GetPinyin(e.NewValue,1).Toupper.substring(0,2)
        End If
    Case "类别"
        If e.DataRow.IsNull("类别") Then
            e.DataRow("编号") = Nothing
        Else
            Dim lb As String = e.DataRow("类别")
            Dim dr = e.DataTable.find("类别 = '" & lb & "' and 序号 is not null", "序号 desc") '取得该类别的最大编号
            If dr IsNot Nothing Then
                e.DataRow("编号") = dr("编号")
                e.DataRow("序号") = dr("序号")
            Else
                dr = e.DataTable.find("", "序号 desc") '取得该类别的最大编号
                If dr IsNot Nothing Then
                    e.DataRow("编号") = lb & Format(dr("序号") + 1, "000")
                    e.DataRow("序号") = dr("序号")+1
                Else
                    e.DataRow("编号") = lb & Format(1, "000")
                    e.DataRow("序号") = 1
                End If
            End If
        End If
End Select

谢谢老师