如何提取多表数据进行填充（继续请教）？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码……

Dim dt_jilu As DataTable = DataTables("进鸡记录")
Dim dt_biaozhun As DataTable = DataTables("饲养标准")
Dim dt_yusuan As DataTable = DataTables("生产预算")

dt_yusuan.StopRedraw()
dt_yusuan.DataRows.Clear
For Each dr_jilu As DataRow In dt_jilu.DataRows
    Dim count As Integer = 0
    For Each dr_biaozhun As DataRow In dt_biaozhun.Select("品种 = '"& dr_jilu("品种") &"'")
        For i As Integer = 1 To 7
            Dim ndr As DataRow = dt_yusuan.AddNew()
            ndr("日期") = dr_jilu("日期").AddDays(count)
            ndr("批次") = dr_jilu("批次")
            ndr("品种") = dr_jilu("品种")
            ndr("日龄") = count + 1
            ndr("周龄") = count \ 7 + 1
            ndr("进栏公鸡") = dr_jilu("进栏公鸡")
            ndr("进栏母鸡") = dr_jilu("进栏母鸡")
            ndr("公鸡采食量") = dr_biaozhun("公鸡采食量")
            ndr("母鸡采食量") = dr_biaozhun("母鸡采食量")
            ndr("产蛋率") = dr_biaozhun("产蛋率")
            ndr("产苗量") = dt_yusuan.DataRows(IIF(count >= 21, count-21, 0))("产蛋量")
            count += 1
        Next
    Next
Next
dt_yusuan.ResumeRedraw()

liuruihua	小大 11楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2012/12/3 12:47:00 [只看该作者] 用户已被锁定

liuruihua	小大 13楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2012/12/3 13:28:00 [只看该作者] 用户已被锁定

liuruihua	小大 15楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2012/12/5 20:29:00 [只看该作者] 用户已被锁定

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