- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151727)
-- 发布时间：2020/7/2 11:36:00
-- excel导入
项目中表采购物资明细中，列物资名称、规格、材质、单位、数量、技术标准等，
能实现以下excel表中采购明细自动导入到项目表采购物资明细中么？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:qr74-006-01生产性材料采购预算（单页）.xls |
-- 发布时间：2020/7/2 11:38:00
--
使用这种方式导：http://www.foxtable.com/webhelp/topics/2334.htm
-- 发布时间：2020/7/2 14:28:00
--
要写在哪个事件下面
-- 发布时间：2020/7/2 14:30:00
--
菜单按钮，或者窗口按钮
-- 发布时间：2020/7/7 10:12:00
--
在系统菜单里做了修改，下面的代码是在表的最下面增加，能改成在第一行插入么？该怎么改？
Dim t As Table = Tables("考勤")
Dim newcount As Integer = 0
t.StopRedraw()
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To sheet.Rows.Count - 1
If sheet(n,0).Text.trim() > ""
Dim dr As DataRow = DataTables("考勤").addnew
newcount += 1
dr("编号") = sheet(n,0).Text
dr("考勤年份") = sheet(n,1).text
dr("考勤月份") = sheet(n,2).text
dr("班组") = sheet(n,3).text
dr("用工性质") = sheet(n,4).text
dr("姓名") = sheet(n,5).text
dr("备注") = sheet(n,6).text
End If
Next
MessageBox.Show("本次合并了" & newcount & "条记录" ,"提示!") \'提示
End If
t.ResumeRedraw()
-- 发布时间：2020/7/7 10:14:00
--
插入使用insertnew：http://www.foxtable.com/webhelp/topics/1981.htm
-- 发布时间：2020/7/7 13:19:00
--
现在只能合并excel中的一个工作簿而且只能是第一个，如果一个excel中有多个工作簿，可否一次合并多个
-- 发布时间：2020/7/7 13:57:00
--
for each sheet as XLS.Sheet in Book.Sheets
导入代码
next