Foxtable(狐表)用户栏目专家坐堂 → 报表导入及转换


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

主题:报表导入及转换

帅哥哟,离线,有人找我吗?
最嗨魔女呜啦啦
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:679 威望:0 精华:0 注册:2018/5/15 12:04:00
报表导入及转换  发帖心情 Post By:2019/2/19 15:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:(0e`kfp}9$as@b6999z2)rm.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:mo8y4~l_lk8fx_5~zysv7u.png
图片点击可在新窗口打开查看

考勤机无数据库权限,只能获得这张表,如何将这张混合表导入成所见数据库中表的形式

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




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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/19 15:47:00 [只看该作者]

如:http://www.foxtable.com/webhelp/scr/2334.htm

Dim Book As New XLS.Book("c:\test\考勤.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1 Step 4
    For c As Integer = 2 To Sheet.Rows.Count -1
        Dim r As Row = Tables("表B").AddNew()
        r("工号") = Sheet(n,0).Value
        r("日期") = Sheet(0,c).Value
        r("上班1") = Sheet(n,c).Value
        r("上班2") = Sheet(n+1,c).Value
        r("上班3") = Sheet(n+2,c).Value
        r("上班4") = Sheet(n+3,c).Value
    Next
Next


 回到顶部