主题：[求助]自动编号

Dim lb As String = "YP"

If e.DataRow("产品编号").StartsWith(lb) = False '如果单据编号前缀不符

    Dim max As String

    Dim idx As Integer

    max = e.DataTable.Compute("Max(产品编号)","Ib = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

    If max > "" Then '如果存在最大编号

        idx = CInt(max.Substring(2,4)) + 1 '获得最大编号的后三位顺序号,并加1

    Else

        idx = 1 '否则顺序号等于1

    End If

    e.DataRow("产品编号") = lb & Format(idx,"0000")

End If

帮助需要两列作为条件  

我想取消  类型   直接赋值  

上面的代码不执行  

求助