主题：增加行

DataRowAdded事件

Dim bh As String = "4-75-"

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(生产单编号)","生产单编号 like '" & bh & "%' ")
If max > "" Then '如果存在最大支付编号
    idx = CInt(max.Substring(bh.length)) + 1 '获得最大支付编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("生产单编号") = bh & Format(idx,"0")

Dim fr As DataRow = e.DataTable.DataRows(0)

If fr.IsNull("生产单编号") = False Then
   
    Dim bh As String = fr("生产单编号")
    Dim i As Integer  = bh.LastIndexOf("-")
    If i > 0 Then
        bh = bh.SubString(0, i+1)
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(生产单编号)","生产单编号 like '" & bh & "%' ")
        If max > "" Then '如果存在最大支付编号
            idx = CInt(max.Substring(bh.length)) + 1 '获得最大支付编号的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        e.DataRow("生产单编号") = bh & Format(idx,"0")
    End If
End If