共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何用报表生成数据表？谢谢！
1楼
169163 发表于：2011/8/31 17:52:00如何用报表生成数据表？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:reports.rar |
2楼
狐狸爸爸 发表于：2011/8/31 17:54:00帮助 - 使用指南 - Excel报表
3楼
169163 发表于：2011/8/31 17:58:00我的意思是把几个报表转到数据表，即数据表到excel报表的反向操作。
4楼
狐狸爸爸 发表于：2011/8/31 18:01:00如果报表的格式固定，那么你可以看看:
帮助文件 - 开发指南 - Excel报表 - 报表编程。
5楼
169163 发表于：2011/9/17 9:00:00麻烦老师以抽空以附件做个例子，提供一个思路，谢谢！
6楼
yangming 发表于：2011/9/17 10:35:00这正是我想研究的课题
7楼
don 发表于：2011/9/17 10:45:00楼主做示例不认真:应该你做的事情让别人干
1.所有Excel文件几乎是一样的,虽应该理解不同的Excel是不同的记录.
2.没有准备相应的Table文件,虽容易找到示例文件.
大概如此这般:
Dim r As Row
Dim Fl,Bh As String
For Each Fl In FileSys.GetFiles(ProjectPath & "Reports\")
Dim Book As New XLS.Book(Fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
r = CurrentTable.addNew
Bh = Sheet(2,4).Value .split(":")(1)
r("编号") = Bh
r("姓名") = Sheet(4,1).Value
r("部门") = Sheet(5,1).Value
r("性别") = Sheet(6,1).Value
r("地址") = Sheet(7,1).Value
r("家庭电话") = Sheet(8,1).Value
r("出生日期") = Sheet(4,3).Value
r("雇佣日期") = Sheet(5,3).Value
r("职务") = Sheet(6,3).Value
r("办公电话") = Sheet(8,3).Value
r("照片") = "EP" & Bh & ".BMP"
r("备注") = Sheet(9,0).Value
Next
[此贴子已经被作者于2011-9-17 10:58:40编辑过]
8楼
yangming 发表于：2011/9/17 14:16:00楼主
１．首先要做一个狐表文件，比如员工表，里面要设置好报表中所列的各列的列名称，名称一定要和报表一致，照片列一定要设为图片型，备注列要是备注型，日期列为日期型，其它的是字符型便可以．
２．在系统文件夹下新加一个文件夹：Reports，将所有需要导入的报表放在里面．
３．在窗口中加一按钮，名称为：导入数据，代码如七楼don老师所示的便可以了．
9楼
169163 发表于：2011/9/17 17:05:00谢谢二位老师！
共9 条记录, 每页显示 10 条, 页签:
[1]