| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]复制指定行的click怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55244) |
| -- 作者：liujywwy -- 发布时间：2014/8/13 10:20:00 -- [求助]复制指定行的click怎么写？ 在需求明细表增加了一个复制按钮。 希望能对指定行进行复制增加到新增行，但其中的需求编号能自动加一。需求提交时间就是当天。其他列的内容保存不变。 请问这个复制的click怎么写？ |
| -- 作者：Bin -- 发布时间：2014/8/13 10:21:00 -- Tables("表A").Current.Clone |
| -- 作者：狐狸爸爸 -- 发布时间：2014/8/13 10:25:00 -- Dim r1 as row = Tables("表A").Current Dim r2 as row = r1.Clone r2("编号") = r1("编号") + 1 |
| -- 作者：liujywwy -- 发布时间：2014/8/14 12:31:00 -- 以下是引用Bin在2014-8-13 10:21:00的发言：
Tables("表A").Current.Clone 希望对于复制新增行是可以编辑的。或者某些列不可编辑，某些列是可以编辑的。 下面这段代码本应该是对复制新增行的整行都可以编辑的吧，怎么没生效。请帮忙看看 Dim r As Row = Tables("需求明细表").Current |
| -- 作者：Bin -- 发布时间：2014/8/14 14:07:00 -- Tables("需求明细表").Current.Clone Tables("需求明细表").Current.Locked = False |
| -- 作者：有点甜 -- 发布时间：2014/8/14 14:09:00 -- 回复4楼，复制新增的行，本来就是可以编辑的。如果不能编辑，就是你把表锁住了、或把列锁住了、或在prepareEdit里面写了限制代码。 |
| -- 作者：liujywwy -- 发布时间：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 |
| -- 作者：Bin -- 发布时间：2014/8/14 15:35:00 -- Tables("需求明细表").Current.Clone Tables("需求明细表").Current("已提交")= False |