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


  共有9532人关注过本帖树形打印复制链接

主题:请帮助解决:克隆行为何有时可以,有时出错?

帅哥哟,离线,有人找我吗?
lyfxybc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望: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


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2012/12/23 12:18:00 [只看该作者]

谢谢

 回到顶部