Foxtable(狐表)用户栏目专家坐堂 → 合并数据能否再快些


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

主题:合并数据能否再快些

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 15:06:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 15:44:00 [显示全部帖子]

先把表弄进来作为临时表,然后就是两个表合并的问题。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52744&skin=0

 

 

下载信息  [文件大小:312.0 KB  下载次数:8]
图片点击可在新窗口打开查看点击浏览该文件:excel作为数据源_合并.table


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 16:48:00 [显示全部帖子]

不可能,看完整4楼。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 17:55:00 [显示全部帖子]

如果是xlsx的,这样写路径

 

Excel2007的数据源链接字符串为:Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\桌面\Excel表.xlsx;Extended Properties='Excel 8.0;HDR=yes'


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 18:07:00 [显示全部帖子]

重新打开项目测试。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 18:18:00 [显示全部帖子]

上传你做的东西。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 10:37:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel作为数据源_合并.table


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 11:47:00 [显示全部帖子]

 

For Each dr As DataRow In DataTables("表A").DataRows
    Dim ndr As DataRow = DataTables("表b").AddNew
    For Each dc As DataCol In DataTables("表A").DataCols
        If DataTables("表b").DataCols.Contains(dc.name)Then
            ndr(dc.name) = dr(dc.name)
        End If
    Next
Next


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 14:18:00 [显示全部帖子]

以下是引用sf020cf在2015/11/13 13:11:00的发言:

临时表的列名与数据表的列名不相同

 

那你就指定它们各自的匹配的列名,不指定怎么知道对应啊

 

Dim sCols() As String = {"列名1", "列名2", "列名3"}
Dim
 dCols() As String = {"列名A", "列名B", "列名C"}

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 16:19:00 [显示全部帖子]

 那你就指定啊,怎么可能帮你动态指定啊,规则是什么啊

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