主题：如何提取多表数据进行填充（继续请教）？

Dim drs As List(Of DataRow)

For Each dr As DataRow In DataTables("进鸡记录").DataRows

    drs = DataTables("饲养标准").Select("[品种] = '" & dr("品种") & "'")

    For Each dr1 As DataRow In drs

        Dim dx As DataRow = DataTables("生产预算").AddNew

        dx("日龄") = dr("日龄")

        dx("进栏公鸡") = dr("进栏公鸡")

        dx("进栏母鸡") = dr("进栏母鸡")

        dx("周龄") = dr1("周龄")

        dx("产蛋率") = dr1("产蛋率")

        dx("公鸡采食量") =dr1("公鸡采食量")

        dx("母鸡采食量") = dr1("母鸡采食量")

        dx("品种") = dr("品种")

        dx("批次") = dr("批次")

    Next

Next

看看这样对不?