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

 代码如下，测试有效。

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