以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求按钮代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10553)

--  作者:zdk0915
--  发布时间:2011/6/11 14:12:00
--  求按钮代码
在表窗口有一增加行按钮,在增加行的同时实现复制上一行某列的数据。代码该如何写?请高手指导。谢谢!
--  作者:kylin
--  发布时间:2011/6/11 14:29:00
--  

dim r as row = tables("A表").addnew

上一行,有2种概念:概念一、指当前行,不一定是增加前的最后一行

if   tables("A表").current isnot nothing then

    r("某列") = tables("A表").current("某列")

end if

 

概念二、指增加前的最后一行

if tables("A表").current isnot nothing then

   r("某列") = tables("A表").Rows(tables("A表").rows.count-2)("某列")

end if

 

[此贴子已经被作者于2011-6-11 14:29:54编辑过]

--  作者:blackzhu
--  发布时间: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) \'将最后一行的内容复制到新增行中.
Next

--  作者:zdk0915
--  发布时间:2011/6/11 15:30:00
--  
3楼的很好用,多谢各位指导!
--  作者:zdk0915
--  发布时间:2011/6/11 15:40:00
--  
如果要增加不定的多行呢?
--  作者:blackzhu
--  发布时间:2011/6/11 17:00:00
--  
你不是复制一行.


纯粹增加多行:

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


--  作者:zdk0915
--  发布时间:2011/6/11 22:11:00
--  

不好意思。是有二个按钮,一个按钮是增加一行并复制某列数据,另一个按钮须根据需要增加多行,并能复制某几列数据。