以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]展开总数问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105082)
--  作者：huli503
--  发布时间：2017/8/11 10:09:00
--  [求助]展开总数问题
各位老师，我们在做生产计划，某零件有10件，只填写一行数据，但生成工艺单时，要求张开为10行数据，有没有相似的案例。
--  作者：有点甜
--  发布时间：2017/8/11 10:14:00
--  

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

 

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
--  作者：huli503
--  发布时间：2017/8/11 10:44:00
--  
谢谢老师