标题：求按钮代码

1楼

zdk0915 发表于：2011/6/11 14:12:00

在表窗口有一增加行按钮，在增加行的同时实现复制上一行某列的数据。代码该如何写？请高手指导。谢谢！

2楼

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编辑过]

3楼

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) '将最后一行的内容复制到新增行中.

4楼

zdk0915 发表于：2011/6/11 15:30:00

3楼的很好用，多谢各位指导！

5楼

zdk0915 发表于：2011/6/11 15:40:00

如果要增加不定的多行呢？

6楼

blackzhu 发表于：2011/6/11 17:00:00

你不是复制一行.

纯粹增加多行:

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

7楼

zdk0915 发表于：2011/6/11 22:11:00

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

共7 条记录, 每页显示 10 条, 页签: [1]