Foxtable(狐表)用户栏目专家坐堂 → [求助]如何把临时表中某格数据填入到另外一张数据表中的指定位置中?


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

主题:[求助]如何把临时表中某格数据填入到另外一张数据表中的指定位置中?

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


加好友 发短信
等级:幼狐 帖子:196 积分:2913 威望:0 精华:0 注册:2016/8/31 14:05:00
[求助]如何把临时表中某格数据填入到另外一张数据表中的指定位置中?  发帖心情 Post By:2016/10/11 9:18:00 [只看该作者]

如图所示,图一 报关单数量表 是我从基础数据中生成的汇总统计数据(是一张临时表),以报关单量为例,我如何把进出口标志为E的对应的报关单号那格的数据填入到图2中报关单量出口那一格中;如何把进出口标志为I的对应的报关单号那格的数据填入到图2中报关单量进口那一格中。
请老师写一个代码示例,我学习一下。万分感谢。

图片点击可在新窗口打开查看

图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:107718 积分:547917 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/11 9:36:00 [只看该作者]

Tables("报关单数量").Sort = "申请口岸,标志"
Dim dr As DataRow
Dim r As Row
Dim r2 As Row
For i As Integer = 0 To Tables("报关单数量").Rows.Count - 1 Step 2
    r = Tables("报关单数量").Rows(i)
    r2 = Tables("报关单数量").Rows(i+1)
    dr = DataTables("统计").AddNew
    dr("申请口岸") = r("申请口岸")
    dr("报关单量_出口") = r("报关单号")
    dr("报关单量_进口") = r2("报关单号")
Next

 回到顶部