| 以文本方式查看主题 - 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 -- 不好意思。是有二个按钮，一个按钮是增加一行并复制某列数据，另一个按钮须根据需要增加多行，并能复制某几列数据。 |