主题：问个关于填充数据的问题

是做了个固定表，现在问题就是怎么逐行填充，每次都复制....这个是个办法，不过太麻烦了，有没有简单点的？

实例已经放上传了，帮忙看看吧..谢谢

而且，还有个问题，如果表里有几十万条数据呢？每增加一款物料就要来弄一次，表里的数据越来越庞大的时候，不是直接歇菜了啊？

 代码如下，测试有效。

For Each dr1 As DataRow In DataTables("品名规格").DataRows
    Dim drs1 As List(Of DataRow) = dr1.GetChildRows("品牌明细")
    For Each dr2 As DataRow In drs1
        Dim drs2 As List(Of DataRow) = dr2.GetChildRows("供应商明细")
        For Each dr3 As DataRow In drs2
            Dim dr As DataRow = DataTables("物料总表").AddNew()
            dr("品名") = dr1("品名")
            dr("规格") = dr1("规格")
            dr("品牌") = dr2("品牌")
            dr("料号") = dr2("料号")
            dr("MOQ") = dr2("MOQ")
            dr("当前库存") = dr2("当前库存")
            dr("均价") = dr2("均价")
            dr("品名") = dr3("单价")
            dr("供应商") = dr3("供应商")
        Next
    Next
Next