求按钮代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求按钮代码

共有11634人关注过本帖树形打印复制链接主题：求按钮代码

blackzhu

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

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

Post By：2011/6/11 14:40:00 [显示全部帖子]

Dim ColNames As String() = {"要复制的列名","列名2"}

Dim dr As Row = Tables("做工要求").Rows(Tables("做工要求").Rows.Count - 1) '获得最后一行

Dim r2 As Row=Tables("做工要求").AddNew()

For Each ColName As String In ColNames

r2(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.

blackzhu

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

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

Post By：2011/6/11 17:00:00 [显示全部帖子]

你不是复制一行.

纯粹增加多行:

Dim r2 As Row=Tables("做工要求").AddNew(5)

主题：求按钮代码