请帮助解决：克隆行为何有时可以，有时出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮助解决：克隆行为何有时可以，有时出错？

共有8710人关注过本帖树形打印复制链接主题：请帮助解决：克隆行为何有时可以，有时出错？

lyfxybc

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

加好友

发短信

等级：六尾狐帖子：1290 积分：9826 威望：0 精华：0 注册：2012/9/19 21:13:00

请帮助解决：克隆行为何有时可以，有时出错？ 发帖心情

Post By：2012/12/14 14:33:00 [只看该作者]

请帮助解决：克隆行为何有时可以，有时出错？所有表者为MAIN。数据表为坯布信息

代码如下

Dim DST As DataRow = CurrentTable.Current.DataRow
    If CurrentTable.Current IsNot Nothing Then
        Dim dr As Row = Tables("坯布信息").AddNew
        Tables("坯布信息").Current("机号") = dst("机号")
        Tables("坯布信息").Current("评分") = dst("评分")
        Tables("坯布信息").Current("产品名称") = dst("产品名称")
        Tables("坯布信息").Current("双面") = dst("双面")
        Tables("坯布信息").Current("匹号") = dst("匹号")
        Tables("坯布信息").Current("序号") = dst("序号")
End If

此主题相关图片如下：161.jpg

szp2012

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

加好友

发短信

等级：童狐帖子：202 积分：1683 威望：0 精华：0 注册：2011/6/17 16:07:00

Post By：2012/12/14 14:38:00 [只看该作者]

dr("评分") =Tables("坯布信息").Current("评分")

...........

注意：“=”的含义为赋值，即将右边的值赋予左边，不是等于

建议狐爸在帮助中加上一些VB的基本概念，我觉得没有VB基础的新人对类似概念不知道

[此贴子已经被作者于2012-12-14 14:47:08编辑过]

lin_hailun

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

加好友

发短信

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

Post By：2012/12/14 14:39:00 [只看该作者]

尽量少这样写代码，换成下面的。

If CurrentTable.Current IsNot Nothing Then
        Dim cr As Row = CurrentTable.Current
        Dim r As Row = Tables("坯布信息").AddNew
        r("机号") = cr("机号")
        r("评分") = cr("评分")
        r("产品名称") = cr("产品名称")
        r("双面") = cr("双面")
        r("匹号") = cr("匹号")
        r("序号") = cr("序号")
End If

[此贴子已经被作者于2012-12-14 14:41:01编辑过]

lyfxybc

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

加好友

发短信

等级：六尾狐帖子：1290 积分：9826 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2012/12/23 12:18:00 [只看该作者]

谢谢

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

主题：请帮助解决：克隆行为何有时可以，有时出错？