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

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("批次")

看看这样对不?

楼主自己改一下吧，大概这样做，如果要加条件的话，希望说清楚些。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

'//在4楼的基础上增加下品种判断：

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("产蛋率")
            count += 1
        Next
    Next
Next
dt_yusuan.ResumeRedraw()

希望怎么优化？

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	如何提取多表数据进行填充（继续请教）？ Post By：2012/12/1 16:18:00 [只看该作者] 用户已被锁定

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

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

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

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

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

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