- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154072)
-- 发布时间：2020/9/2 22:49:00
-- 导出
For Each r As Row In Tables("月缴费_Table1").rows
Dim Book As New XLS.Book(ProjectPath & "Attachments\\住户缴费清单.xls")
Dim fl As String = ProjectPath & r("姓名") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
\'Dim Proc As New Process \'打开工作簿
\'Proc.File = fl
\'Proc.Start()
Next
老师，我想实现这个表按姓名生成文件，现在是按姓名生成了文件，可每个文件里面还是所有人的明细，我要每个文件的明细只是他自己的，请老师帮忙
-- 发布时间：2020/9/3 9:00:00
--
去掉模板里的<all>标记
For Each r As Row In Tables("月缴费_Table1").rows
Tables("月缴费_Table1").position = r.index
Dim Book As New XLS.Book(ProjectPath & "Attachments\\住户缴费清单.xls")
……
-- 发布时间：2020/9/3 9:33:00
--
For Each r As Row In Tables("月缴费_Table1").rows
Dim dr As DataRow
dr = DataTables("月缴费表").find("月份 = \'" & DataTables("月缴费表").Compute("max(月份)") & "\'")
Tables("月缴费_Table1").position = r.index
Dim Book As New XLS.Book(ProjectPath & "Attachments\\住户缴费清单.xls")
Dim fl As String = ProjectPath & r("姓名")& ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Next
老师，我这块每次导出的时候是要导出当前表里最后的那个月份客户名单，加入了这个条件，可是不起作用，这个怎么对应呢，还有就是现在每一个表里是一条记录，但是每个表里都是一条相同的记录，即第一行数据，这块还是弄不明白，请老师帮忙
-- 发布时间：2020/9/3 9:56:00
--
没看懂，请上传实例说明
-- 发布时间：2020/9/3 10:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:物业管理系统简易版.rar |
我是想每次发邮件取最后这个月的住户，给每个住户发送一条记录，用附件的形式。
-- 发布时间：2020/9/3 10:24:00
--
老师，就是 月缴费 这个窗体
-- 发布时间：2020/9/3 10:45:00
--
Dim drs As List(Of String)
Dim d As Date = DataTables("月缴费表").Compute("max(月份)")
drs = DataTables("月缴费表").GetValues("姓名","月份 = \'" & d & "\'")
For Each dr As String In drs
Dim idx As Integer = Tables("月缴费表").FindRow("姓名=\'" & dr & "\' And 月份 = \'" & d & "\'")
Tables("月缴费表").position = idx
Dim Book As New XLS.Book(ProjectPath & "Attachments\\住户缴费清单.xls")
Dim fl As String = ProjectPath & dr & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Next
-- 发布时间：2020/9/3 11:00:00
--
老师，这样目录下一个文件也生成不了
-- 发布时间：2020/9/3 11:20:00
--
模板发上来
-- 发布时间：2020/9/3 11:51:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住户缴费清单.xls |