以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  记录出错问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188432)
--  作者：lin98
--  发布时间：2023/9/20 10:38:00
--  记录出错问题
如何实现表B根据表A的的份数数据生成记录？
表A的字段：编号、部门、份数
表B的字段：编号、部门、得分

比如

表A的字段：编号、部门、份数
                Q1     QQ    10
                W1    WW   100
份数为10，表B生成10个记录
份数为100，表B生成100个记录

下面代码，一直生成数据，有问题，如何改？
For Each r As Row In Tables("表A").rows

\'Dim d1 As Date = r("份数")
    Dim nr As Row
    Do 
\'      Do 
        nr = Tables("表B").addnew
        nr("编号") = r("编号") 
        nr("部门") = r("部门") 
 
    Loop
Next
--  作者：有点蓝
--  发布时间：2023/9/20 10:45:00
--  
For Each r As Row In Tables("表A").rows
For i as integer = 1 to r("份数")
nr = Tables("表B").addnew
……