加好友 发短信
等级:九尾狐
帖子: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
|
|