以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 克隆行并清除其中某单元格内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54212)

--  作者:wumingrong1
--  发布时间:2014/7/23 18:40:00
--  [求助] 克隆行并清除其中某单元格内容
如果我想而不是要复制第一行内容;而是要复制 光标点击的当前行 数据到 新增的行;该怎么改这个命令。

Dim r As Row = Tables("单项列表项目表").addnew
r("表名")=Tables("单项列表项目表").rows(0)("表名")
r("列名")=Tables("单项列表项目表").rows(0)("列名")

或者是先克隆光标点击的当前行、然后删除新增行中的某个单元格内的内容。该怎么写命令?

--  作者:有点甜
--  发布时间:2014/7/23 19:09:00
--  
Dim cr As Row = Tables("单项列表项目表").Current
Dim nr As Row = Tables("单项列表项目表").addnew
nr("表名") = cr("表名")
nr("列名") = cr("列名")

--  作者:有点甜
--  发布时间:2014/7/23 19:11:00
--  

Tables("单项列表项目表").Current.Clone
Tables("单项列表项目表").Current("表名") = Nothing