Foxtable(狐表)用户栏目专家坐堂 → 两个表想乘怎么做


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

主题:两个表想乘怎么做

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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
两个表想乘怎么做  发帖心情 Post By:2018/9/27 10:47:00 [只看该作者]

档案表有1000条数据,仓库表有20个仓库,生成每个仓库对应1000条数据,就是这2个表想乘要怎么做

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/27 10:48:00 [只看该作者]


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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/27 15:19:00 [只看该作者]

以下是引用有点甜在2018/9/27 10:48:00的发言:

参考

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

 这个是加一列数据吧 不是相乘


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/27 15:23:00 [只看该作者]

你的20个仓库,写成循环,即可。一个仓库执行一遍2楼代码即可。

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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/27 16:22:00 [只看该作者]

以下是引用有点甜在2018/9/27 15:23:00的发言:
你的20个仓库,写成循环,即可。一个仓库执行一遍2楼代码即可。
这个不就是把表A的数据复制到表B吗,我要生成一张全新的表,因为我的表AB都是查询表,而且我需要从表A和表B分别取数据,来生成。这个怎么写


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/27 16:22:00 [只看该作者]

不会做请上传具体项目。

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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/27 16:35:00 [只看该作者]

就把这两个表相乘 等于生成 每个仓库都20条数据  总200条
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2018/9/27 16:36:30编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/27 16:42:00 [只看该作者]

For Each r As DataRow In DataTables("表C").Select("")
    For Each dr1 As DataRow In DataTables("表b").Select("")
        Dim dr2 As DataRow = DataTables("表a").AddNew()
        For Each dc As DataCol In DataTables("表b").DataCols
            dr2(dc.Name) = dr1(dc.name)
        Next
        dr2("仓库") = r("仓库")
    Next
Next

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/27 16:46:00 [只看该作者]

谢谢

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


加好友 发短信
等级:童狐 帖子:204 积分:1768 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/9/27 16:52:00 [只看该作者]

以下是引用有点甜在2018/9/27 16:42:00的发言:

For Each r As DataRow In DataTables("表C").Select("")
    For Each dr1 As DataRow In DataTables("表b").Select("")
        Dim dr2 As DataRow = DataTables("表a").AddNew()
        For Each dc As DataCol In DataTables("表b").DataCols
            dr2(dc.Name) = dr1(dc.name)
        Next
        dr2("仓库") = r("仓库")
    Next
Next

 

 

 下载信息  [文件大小:320.0 KB  下载次数:0]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

真实的数据量太大了 会卡住,有没有其他写法


 回到顶部
总数 12 1 2 下一页