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

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

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

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 16:05:00 [只看该作者]

以下是引用雁过不留痕8在2013-1-9 15:52:00的发言：
林老师，您试过的好使吗？

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

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

我测试正常。不用设置什么，直接代码运行就行了，哪里不对？

[此贴子已经被作者于2013-1-9 16:05:09编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 16:07:00 [只看该作者]

以下是引用雁过不留痕8在2013-1-9 15:54:00的发言：
林老师，还有我刚才那个贴子里，副本table怎样使用所有功能呢？

没太明白，

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

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

到统计记录表的edit事件里写代码。

select case e.Tabel.Name
case "统计查询_table1"
xxxx
end select

雁过不留痕8

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2013/1/9 16:44:00 [只看该作者]

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

看来是必须要用clone()

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 16:49:00 [只看该作者]

我测试很正常。联系客服QQ吧，应该是个很简单的问题。

雁过不留痕8

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

加好友

发短信

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

Post By：2013/1/10 10:36:00 [只看该作者]

林老师，我把昨天的问题再跟您具体说一下，跟客服的人说了，他们也没解决

我运行复选框的代码就是你给我的代码

此主题相关图片如下：6phvuh1hjq1)$0zwkw%0zlr.jpg

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/10 11:04:00 [只看该作者]

改成这样测试可以。

If e.Row.Checked Then
    Dim Result As DialogResult
    Result=MessageBox.Show("要复制该行吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
    If Result=DialogResult.Yes Then
        e.Row.Checked = False
        CurrentTable.ApplySort = False
        Dim r1 As Row = e.Row.clone()

        r1("班组信息")=""
        r1("增加完成数量")=""
        r1("增加完成数量的时间")=""
        r1("本工序完成数量合计")=""
        'r1("备注")=""

    End If
End If

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