table 中行的克隆问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → table 中行的克隆问题

共有9020人关注过本帖树形打印复制链接主题：table 中行的克隆问题

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

table 中行的克隆问题 发帖心情

Post By：2013/1/9 14:38:00 [显示全部帖子]

table中行的克隆问题

请问有没有什么好办法，能将table中的行克隆之后再修改部分列的内容呢？

我的代码这样做为什么不能实现呢？

在窗口的table的aftercheckrow事件中加入如下代码：

Dim Result As DialogResult

Result=MessageBox.Show("要复制该行吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If Result=DialogResult.Yes Then

Dim r As Row=Tables("统计查询_table1").Current

Dim r1 As Row

r1=r.clone()

r1("班组信息")=""

r1("增加完成数量")=""

r1("增加完成数量的时间")=""

r1("本工序完成数量合计")=""

End If

Tables("统计查询_table1").ClearCheckedRows

其他列r1和r均相同，班组信息等列设为空

但是我的代码实现不了我的功能

第一次点击的时候可以实现，第二次第三次的时候r1和r 完全相同，没有实现班组信息设为空的功能

请问是为什么呢？

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 14:39:00 [显示全部帖子]

实在不行，只能用addnew()，然后每行都重新设了

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 14:54:00 [显示全部帖子]

有，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复件 1管理项目2.zip

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 14:55:00 [显示全部帖子]

在统计记录的查询按钮，我设置的是单击复选框的时候实现复制功能

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 14:57:00 [显示全部帖子]

我设置的是

r1("班组信息")=""

r1("增加完成数量")=""

r1("增加完成数量的时间")=""

r1("本工序完成数量合计")=""

将这四列的内容设为空，但是实际上复制出的是一样的

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 14:59:00 [显示全部帖子]

而且我录入的时候计划号为3的“增加完成数量”设置的是3333，现在没有了，为空了

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 15:52:00 [显示全部帖子]

林老师，您试过的好使吗？

我怎么试过了还是不好使呢？

我把我运行后的界面上传一下，是不是我哪设置的不对呢？

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 15:54:00 [显示全部帖子]

林老师，还有我刚才那个贴子里，副本table怎样使用所有功能呢？

没太明白，

比如说，我在窗口统计查询中加入了一个table1是normal型的，作为副本true，绑定表统计记录表

那我怎样才能得到tables("统计查询_table1")的Edit事件呢？

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 16:09:00 [显示全部帖子]

没办法，只能用这种笨办法了

Dim a As Integer

Dim c As Integer

a=Tables("统计查询_table1").Rowsel

c=Tables("统计查询_table1").colsel

Dim r As Row

'Dim r1 As Row

'Dim r As Row=Tables("统计查询_table1").Current

r= Tables("统计查询_table1").Rows(a)

Dim r1 As Row=Tables("统计查询_table1").Rows.AddNew()'

Dim Result As DialogResult

Result=MessageBox.Show("要复制该行吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)

If Result=DialogResult.Yes Then

'r1=r.clone()

r1("计划号")=r("计划号")

r1("计划类型")=r("计划类型")

r1("用户名称")=r("用户名称")

r1("产品名称")=r("产品名称")

r1("产品类型")=r("产品类型")

r1("产品图号")=r("产品图号")

r1("交检工序")=r("交检工序")

r1("交检人")=r("交检人")

r1("交检时间")=r("交检时间")

r1("班组信息")=""

r1("增加完成数量")=""

r1("增加完成数量的时间")=""

r1("本工序完成数量合计")=""

'r1("检验人")=""

'r1("检验时间")=""

'r1("检验结论")=""

'r1("备注")=""

End If

Tables("统计查询_table1").ClearCheckedRows

Tables("统计查询_table1").Sort="计划号"

雁过不留痕8

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

加好友

发短信

等级：幼狐帖子：157 积分：1100 威望：0 精华：0 注册：2012/9/13 15:36:00

Post By：2013/1/9 16:44:00 [显示全部帖子]

还是不行啊，不能应用 Tables("统计查询_table1").Sort="计划号"

看来是必须要用clone()

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：table 中行的克隆问题