主题：[求助] 如何多条件自动编号

Select  e.DataCol.Name
    Case = "制单日期","工程名称"
        If e.DataRow.IsNull("制单日期") OrElse e.DataRow.IsNull("工程名称") Then
            e.DataRow("单据编号") = Nothing
        Else
            Dim d As Date = e.DataRow("制单日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("工程名称") & "-CLRK-"  & Format(d,"yyyyMM") & "-"  '生成该月编号的前缀

            Dim idx As Integer
            idx = e.DataTable.Compute("Count(单据编号)","单据编号 like '" & bh _
            & "*' and [_identify] < " & e.DataRow("_identify") & " ") +1
            e.DataRow("单据编号") = bh  & Format(idx,"0000")

        End If
End Select