参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127613&skin=0

1、做什么操作的时候拆分？如何拆分？

2、请上传具体的项目测试，说明操作步骤，以及最后需要得到的效果。

1、你勾选以后，不要取消勾选啊，取消就会删除数据的啊

2、

If e.DataCol.name = "系统拆分" OrElse e.DataCol.name = "供货批次" Then
    If e.DataRow("系统拆分") = True Then
        If e.DataRow("供货批次") <> Nothing Then
            e.DataTable.DeleteFor("订单分批次号 like \'" & e.DataRow("订单编号") & "%\' and 订单分批次号 <> \'" & e.DataRow("订单编号") & "-01\'")
            Dim n1 As Double = e.DataRow("产品数量") / e.DataRow("供货批次")
            Dim n2 As Double = (e.DataRow("大订单截止日期") - e.DataRow("大订单开始日期")).TotalDays / e.DataRow("供货批次")
            e.DataRow("订单分批次号") = e.DataRow("订单编号") & "-01"
            e.DataRow("检验日期") = e.DataRow("大订单开始日期").adddays(n2)
            e.DataRow("分批次数量") = n1
            For i As Integer = 2 To e.DataRow("供货批次")
                Dim ndr As DataRow = e.DataTable.addnew
                ndr("订单分批次号") = e.DataRow("订单编号") & format(i, "-00")
                ndr("检验日期") = e.DataRow("大订单开始日期").adddays(n2*i)
                ndr("分批次数量") = n1
            Next
        End If
    ElseIf e.DataCol.name = "系统拆分" AndAlso e.oldvalue = True Then
        e.DataTable.DeleteFor("订单分批次号 like \'" & e.DataRow("订单编号") & "%\' and 订单分批次号 <> \'" & e.DataRow("订单编号") & "-01\'")
    End If
End If

请先说明操作步骤：

1、输入4，就生成对应的4行？

2、然后，分批时间，生成检验日期？