主题：[求助]复制指定行的click怎么写？

在需求明细表增加了一个复制按钮。

希望能对指定行进行复制增加到新增行，但其中的需求编号能自动加一。需求提交时间就是当天。其他列的内容保存不变。

请问这个复制的click怎么写？

Tables("表A").Current.Clone

Dim r1 as row = Tables("表A").Current

Dim r2 as row = r1.Clone

r2("编号") = r1("编号")  + 1

希望对于复制新增行是可以编辑的。或者某些列不可编辑，某些列是可以编辑的。

下面这段代码本应该是对复制新增行的整行都可以编辑的吧，怎么没生效。请帮忙看看

Dim r As Row = Tables("需求明细表").Current
Tables("需求明细表").Current.Clone
r.Locked = False

Tables("需求明细表").Current.Clone
Tables("需求明细表").Current.Locked = False

  回复4楼，复制新增的行，本来就是可以编辑的。如果不能编辑，就是你把表锁住了、或把列锁住了、或在prepareEdit里面写了限制代码。

对应新增行的复制，那复制行肯定是可以编辑的。

但对于已经提交并且提交行已锁定进行复制，希望能增加对博达机型的编辑。

下面是prepareedit代码。

If e.Col.name <> "QQ号码" AndAlso e.Col.name <> "附件" AndAlso e.Col.name <> "状态"  Then
    If e.Row("已提交") Then
       e.cancel=True
    End If
End If

Tables("需求明细表").Current.Clone
Tables("需求明细表").Current("已提交")= False