Foxtable(狐表)用户栏目专家坐堂 → 提取excel文件的问题


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

主题:提取excel文件的问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/22 11:51: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
         r(nms(m)) = Sheet(n,m).Value
    Next
    For s As Integer = 0 To opq.length - 1
         r(opq(s)) = Sheet(n,s+10).Value
    Next
Next

 回到顶部