- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 报表导入及转换 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131179)
-- 发布时间：2019/2/19 15:27:00
-- 报表导入及转换
此主题相关图片如下：(0e`kfp}9$as@b6999z2)rm.png
此主题相关图片如下：mo8y4~l_lk8fx_5~zysv7u.png
考勤机无数据库权限，只能获得这张表，如何将这张混合表导入成所见数据库中表的形式
-- 发布时间：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