[求助]复制指定行的click怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制指定行的click怎么写？

共有3159人关注过本帖树形打印复制链接主题：[求助]复制指定行的click怎么写？

liujywwy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]复制指定行的click怎么写？ 发帖心情

Post By：2014/8/13 10:20:00 [显示全部帖子]

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

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

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

liujywwy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/14 12:31:00 [显示全部帖子]

以下是引用Bin在2014-8-13 10:21:00的发言：
Tables("表A").Current.Clone

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

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

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

liujywwy

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/14 15:34:00 [显示全部帖子]

以下是引用有点甜在2014-8-14 14:09:00的发言：
回复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

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