主题：[求助]展开总数问题

各位老师，我们在做生产计划，某零件有10件，只填写一行数据，但生成工艺单时，要求张开为10行数据，有没有相似的案例。

做个逻辑列【展开】，勾选就生成

 

If e.DataCol.Name = "展开" Then
   
    For i As Integer = 1 To e.DataRow("数量")
       
        Dim ndr As DataRow = DataTables("工艺单").AddNew
       
        ndr("某列") = e.DataRow("某列")
       
        ndr("某列") = e.DataRow("某列")
       
    Next
   
End If

谢谢老师