主题：[求助]错误代码

完全理解不了你的意思，输入入库单编号，就自动生成明细单编号了啊。

代码

Select Case e.DataCol.Name
    Case "入库单编号"
        If e.DataRow.IsNull("入库单编号") Then
            e.DataRow("入库单编号明细") = Nothing
        Else
            Dim bh As  String = e.DataRow("入库单编号")
            Dim max  As  String
            Dim idx  As  Integer
            max = e.DataTable.Compute("Max(入库单编号明细)","入库单编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大入库单编号
            If max > ""  Then  '如果存在最大入库单编号
                Dim l As Integer = bh.Length
                idx = CInt(max.Substring(l,3)) + 1  '获得最大入库单编号的后两位顺序号,并加1
            Else
                idx = 1  '否则顺序号等于1
            End  If
           
            e.DataRow("入库单编号明细") = bh & Format(idx,"000")
           
        End If
End Select