有下面一段代码：

\'--------------------------------------单号的自动生成-----------------------------------------
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("单号") = Nothing
    Else
        Dim d As Date = e.DataRow("日期")
        Dim bh As String = "RZ" & e.DataRow("单号") & "" & Format(d,"yy-MM") & "" \'生成编号的前缀
        Dim max As String
        Dim idx As Integer
        Dim flt As String
        flt = "单号 like \'" & bh & "%\' And [_Identify] <> " & e.DataRow("_Identify")
        max = e.DataTable.Compute("Max(单号)",flt) \'取得该月的相同单号的最大单号
        If max > "" Then \'如果存在最大单号
            idx = CInt(max.Substring(bh.Length,2)) + 1 \'获得最大单号的后两位顺序号,并加1
        Else
            idx = 1 \'否则顺序号等于1
        End If
        e.DataRow("单号") = bh & Format(idx,"00")
    End If
End If
\'--------------------------------------单号的自动生成-----------------------------------------

此主题相关图片如下：723.jpg

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

点击浏览该文件:722.foxdb