以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在窗口中按钮,功能为复制上一行固定几列内容的写法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27159)

--  作者:sunbrain
--  发布时间:2012/12/23 23:39:00
--  [求助]在窗口中按钮,功能为复制上一行固定几列内容的写法
我想为窗口中的一个按钮增加一个功能:新增一行的时候,复制上一行数据的第一列和第二列,代码怎么写呢?请大家帮助
--  作者:狐狸爸爸
--  发布时间:2012/12/24 9:07:00
--  

例如:

 

Dim ColNames As String() = {"日期","客户","雇员"}

Dim r1 As Row = Tables("xxx").Rows(Tables("xxx").Rows.Count - 1)

Dim r2 As Row = Tables("xxx").AddNew()

For Each ColName As String in ColNames 
       r2(ColName) = r1(ColName)
Next