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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请帮助解决：克隆行为何有时可以，有时出错？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26799)

--  作者：lyfxybc
--  发布时间：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
--  发布时间：2012/12/14 14:38:00
--

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



...........

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

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

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

--  作者：lin_hailun
--  发布时间：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
--  发布时间：2012/12/23 12:18:00
--
谢谢