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

帮助需要两列作为条件  

我想取消  类型   直接赋值  

上面的代码不执行  

求助