Foxtable(狐表)用户栏目专家坐堂 → 帮忙看下这段代码


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

主题:帮忙看下这段代码

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


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
帮忙看下这段代码  发帖心情 Post By:2012/11/23 15:55:00 [只看该作者]

For Each r As Row In Tables("导入待入库明细_table2").GetCheckedRows
    Dim dr As Row = Tables("物料入库单主表.物料入库单明细").AddNew
    r("品名") = dr("品名")
    r("待入库通知单号") = dr("待入库单号")
Next
e.Form.Close

 

执行完这段代码后,r("品名")和r("待入库通知单号")消失。。在(物料入库单主表.物料入库单明细)新增的行里也看不见“品名”和单号

参照paul同学的视频写的..

这个。。到底是怎么回事?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/11/23 16:00:00 [只看该作者]

在“物料入库单主表.物料入库单明细”看不到,那就回到“物料入库单明细”看看新增的行在不在。

关联表看打不到新增的行,通常是因为你修改了关联列内容,因为关联表只会显示父表当前行下的关联字行。

 

如果搞不定,做个简单的例子传上来,我们帮你看看。


 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2012/11/23 16:03:00 [只看该作者]

新增行是在的,只是赋值赋不上去。。而且取值的表的字段也消失了。。

难道是因为我的版本没更新。。我试试


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/11/23 16:04:00 [只看该作者]

实在不行,就做个例子发上来,说明目的和遇到的问题,很快可以帮你分析出原因的。


 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2012/11/23 16:46:00 [只看该作者]

以下是引用狐狸爸爸在2012-11-23 16:04:00的发言:

实在不行,就做个例子发上来,说明目的和遇到的问题,很快可以帮你分析出原因的。

例子来了...

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试导入.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2012/11/23 16:50:00 [只看该作者]

还是一样的情况,郁闷了,赋值过去的话取值表的字段也变空白,addnew后的字段也是空白..


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/11/23 16:51:00 [只看该作者]

For Each r As Row In Tables("导入待入库单明细_table2").GetCheckedRows
    Dim dr As Row = Tables("入库单主表.入库单明细").AddNew
    dr("品名") = r("品名")
    dr("待入库单号") = r("待入库单号")
Next
e.Form.Close

 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2012/11/23 16:56:00 [只看该作者]

以下是引用狐狸爸爸在2012-11-23 16:51:00的发言:
For Each r As Row In Tables("导入待入库单明细_table2").GetCheckedRows
    Dim dr As Row = Tables("入库单主表.入库单明细").AddNew
    dr("品名") = r("品名")
    dr("待入库单号") = r("待入库单号")
Next
e.Form.Close

这个。。。狐爸,我黑线了...这个顺序也有讲究的咩?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/11/23 17:01:00 [只看该作者]

是我给你钱,还是你给我钱,你说会没有讲究吗?

 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2012/11/23 17:02:00 [只看该作者]

以下是引用狐狸爸爸在2012-11-23 17:01:00的发言:
是我给你钱,还是你给我钱,你说会没有讲究吗?

这个以前真没留意到,今天学习了


 回到顶部