Foxtable(狐表)用户栏目专家坐堂 → 合并excel数据


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

主题:合并excel数据

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


加好友 发短信
等级:三尾狐 帖子:774 积分:8830 威望:0 精华:0 注册:2017/1/26 14:38:00
合并excel数据  发帖心情 Post By:2021/4/17 14:45:00 [只看该作者]

我用帮助里的合并数据方式合并,发现当有逻辑列的时候,会报错。

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/17 16:21:00 [只看该作者]

For n As Integer = 1 To Sheet.Rows.Count -1
    Dim 
r As Row = Tables("订单").AddNew()
    For 
m As Integer = 0 To nms.Length - 1
if Tables("订单").cols(nms(m)).IsBoolean
r(nms(m)) = IIF(Sheet(n,m).text = "0",false,true)
else
         r(nms(m)) = Sheet(n,m).Value
end if
    Next
Next

 回到顶部