[求助]数据填充（问题已解决，详见2楼代码） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据填充（问题已解决，详见2楼代码）

共有10265人关注过本帖树形打印复制链接主题：[求助]数据填充（问题已解决，详见2楼代码）

VIP用户

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：218 积分：2330 威望：0 精华：0 注册：2009/7/14 1:06:00

[求助]数据填充（问题已解决，详见2楼代码） 发帖心情

Post By：2012/2/14 23:53:00 [只看该作者]

在表B中连续增加多行后，如何将表A的当前行，重复填充到表B的多行中去？

[此贴子已经被作者于2012-2-16 9:41:00编辑过]

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/2/15 8:00:00 [只看该作者]

Tables("表B").AddNew(5) '在表B增加5行
Dim dt As DataTable = DataTables("表B") '定义表B为dt
For Each dr As DataRow In dt.DataRows     '遍历表B的所有行
    If dr.RowState = DataRowState.Added Then       '如果遍历行为新增行
        dr("第一列")=Tables("表A").Current("第一列")   '那么表B的第一列新增行的数据等于表A的当前行
    End If
Next

Datatable("表B").Save '保存表A