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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制上一行代码

共有10704人关注过本帖树形打印复制链接主题：复制上一行代码

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

复制上一行代码 发帖心情

Post By：2011/6/16 10:42:00 [显示全部帖子]

下面代码是复制上一行部分列数据到新增行,我想将其应用到窗口中的表,通过按钮操作.

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
Return '那么返回
End If
Dim ColNames As String() = {"日期","客户","雇员"} '定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行
For Each ColName As String in ColNames
e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
Next