- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 还是关于导入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57975)
-- 发布时间：2014/10/9 14:09:00
-- 还是关于导入的问题
现在有一个excel的表，希望导入到foxtable中，怎么实现下图的效果呢。
excel表
此主题相关图片如下：捕获2.png
此主题相关图片如下：捕获2.pngfoxtabel表（导入后）
此主题相关图片如下：捕获3.png
-- 发布时间：2014/10/9 14:11:00
--
请上传例子。
-- 发布时间：2014/10/9 14:17:00
--
项目和表格
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:execl.xls |
[此贴子已经被作者于2014-10-9 14:18:11编辑过]
-- 发布时间：2014/10/9 14:25:00
--
代码
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 i As Integer = 1 To sheet.Rows.Count - 1
For j As Integer = 1 To sheet.Cols.Count - 1
Dim ndr As DataRow = DataTables("表a").AddNew
ndr("客户编号") = sheet(i, 0).Text
ndr("年度") = sheet(0, j).Text
ndr("欠费金额") = sheet(i, j).Text
Next
Next
End If