如何实现表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
For Each r As Row In Tables("表A").rowsFor i as integer = 1 to r("份数")
nr = Tables("表B").addnew
……