- 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=19617)
-- 发布时间：2012/5/16 9:39:00
-- 关于excel导出及发导入。
如图。
1 已经做出excel报表，但是有些地方不是很满意，想做成 《报表样式》的excel报表。不知道能不能实现, 能实现的兄弟帮忙一下。
2 在浏览商品窗口点击 添加订单 就能弹出 《订单详细窗口》，不知道怎么才能实现，（要求，商品表中“颜色”列是一个多值字段，所以《订单详细窗口》的行数要等于颜色的数量+1，并且每列只显示一个颜色。具体请参考报表样式。
3 最麻烦的一个，就是 当客户编辑完《报表样式》并回传给我们时，怎么样，才能把客户编辑的《报表样式》中的数据导入（合并）到数据库《订单》表中。（导入条件：总计行的数量大于 1）.
谢谢，各位大侠指教了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:订单测试.rar |
此主题相关图片如下：订单详细窗口.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报表样式.xls |
-- 发布时间：2012/5/16 9:44:00
--
先回复你认为“最难”的一个问题。
Foxtable可以根据Excel模板批量生成Excel表格，反过来，我们也可以从Excel表格提取数据写入Foxtable。
假定有一个下图所示的Excel文件，发给所有员工自行填写，然后将所有填写好的文件放在同一个目录，现在要求编写代码从这些Excel文件中提取数据，写入到Foxtable的员工表中：
此主题相关图片如下：1718.gif
代码是很简单的，只是将Excel各单元格的内容写入新增行对应列而已：
For Each file As String In filesys .GetFiles("c:\\Data")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("员工").AddNew
dr("姓名") = sheet(4,1).Text
dr("部门") = sheet(5,1).text
dr("出生日期") = sheet(4,3).text
dr("雇佣日期") = sheet(5,3).text
dr("性别") = sheet(6,1).text
dr("职务") = sheet(6,3).text
dr("地址") = sheet(7,1).text
dr("家庭电话") = sheet(8,1).text
dr("办公电话") = sheet(8,3).text
dr("备注") = sheet(9,0).text
End If
Next
[此贴子已经被作者于2012-5-16 9:44:46编辑过]
-- 发布时间：2012/5/16 9:49:00
--
至于报表，你可以看看：
http://www.foxtable.com/help/topics/0204.htm
另外你似乎有个同行，就是论坛的元老blackzhu，他的报表和你类似，你看看他这篇文章的最后一个图片：
http://www.foxtable.com/intro/topics/2464.htm