主题：实现“入库单在保存时自动生成会计凭证”

改代码

Select e.DataCol.Name 
    Case "成品编号"
        If e.DataRow.IsNull("成品编号") Then
            e.DataRow("卷号") = Nothing
        Else
            Dim lb As String = e.DataRow("成品编号")
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(卷号)","成品编号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = val(max) + 1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("卷号") = Format(idx,"000")
        End If
End Select