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

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

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

lin_hailun

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

加好友

发短信

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

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

clone不会这样吧？有例子不，我测试相当正常。

lin_hailun

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

加好友

发短信

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

Post By：2013/1/9 15:43: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
        Dim r1 As Row = e.Row.clone()
        'r1("交检工序")=r("交检工序")
        'r1("交检人")=r("交检人")
        'r1("交检时间")=r("交检时间")

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

    End If
End If

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

lin_hailun

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

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

lin_hailun

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

加好友

发短信

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

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

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

lin_hailun

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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="计划号"

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

主题：table 中行的克隆问题