报表生成问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表生成问题

共有2112人关注过本帖树形打印复制链接主题：报表生成问题

aza520

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

报表生成问题 发帖心情

Post By：2017/12/17 20:04:00 [只看该作者]

我在窗口的“公示表”按钮如下代码，想实现点击后生成当前用户能加载（包括所有的分页）的数据报表，实际上该代码把其它用户负责的数据也显示出来了。请老师指点是什么问题？"S征地记录"个与"S征地明细"通过"协议书编号"和"第几期结算"关联。当前用户名是“良口乡”，与"S征地记录"表的“乡镇”列一致。

DataTables("S征地明细").LoadFilter = "协议书编号 = '" & Tables("S征地记录").current("协议书编号") & "'"

DataTables("S征地明细").LoadFilter = "第几期结算 = '" & Tables("S征地记录").current("第几期结算") & "'"

DataTables("S征地明细").Load

Dim Book As New XLS.Book(ProjectPath & "Attachments\征地公示表.xls")

Dim fl As String = ProjectPath & "Reports\征地公示表.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

此主题相关图片如下：qq图片20171217195446.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/17 21:11:00 [只看该作者]

试试

DataTables("S征地明细").LoadFilter = "协议书编号 = '" & Tables("S征地记录").current("协议书编号") & "' and 第几期结算 = '" & Tables("S征地记录").current("第几期结算") & "'"

DataTables("S征地明细").Load

aza520

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2017/12/17 21:42:00 [只看该作者]

打开的时候还是不行，excel出现严重错误

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/17 23:31:00 [只看该作者]

你正常加载数据，然后测试模板能否正常生成数据。先确认是否你模板弄错了。

aza520

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2017/12/18 9:38:00 [只看该作者]

按老师的代码修改后，只能导出选择行一行的数据

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/18 10:00:00 [只看该作者]

上传模板和实例看看吧

aza520

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2017/12/18 13:09:00 [只看该作者]

老师，共有三个问题，都是在”征地记录“窗口：

1、”公示表“按钮不能生成当前已加载的数据（包括已加载的所有页）

2、”导出记录表“按钮只能导出当前页，想要导出当前已加载的数据（包括已加载的所有页）

3、”合计“按钮想要统计当前用户已加载的数据（包括已加载的所有页）

上传实例，请老师指教

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理系统.zip

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/18 14:59:00 [只看该作者]

1、

DataTables("S征地明细").LoadFilter = ""
DataTables("S征地明细").Load

Dim Book As New XLS.Book(ProjectPath & "Attachments\征地公示表.xls")
Dim fl As String = ProjectPath & "Reports\征地公示表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

2、

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables("S征地记录").DataTable.Loadpage = 0
    Tables("S征地记录").DataTable.Loadtop = ""
    Tables("S征地记录").DataTable.Load
    Tables("S征地记录").SaveExcel(dlg.FileName, "S征地记录") '保存文件
End If

3、代码不需要改，你要用不同用户登录才能得到统计数据。你用开发者登陆，自然得不到数据的。