主题：关于编号----(已解决)

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") = False And e.DataRow("编号") = Nothing Then
        Dim s As String =  format(e.DataRow("日期"),"yyyyMM") &"-"
        e.DataRow("编号")=s
        Dim i As String = e.DataTable.Compute("Max(编号)" , "[编号] like '" & s & "*'" )
        Dim n As Integer
        If i.length > 7 Then
            n=CInt(right(i,4))
            s= s & format(n+1,"0000")
            e.DataRow("编号")=s

        Else
            n=0
            s= s & format(n+1,"0000")
            e.DataRow("编号")=s