- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何把窗口当前表数据声明为DataTable引用在FastReport报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139280)
-- 发布时间：2019/8/9 15:26:00
-- 如何把窗口当前表数据声明为DataTable引用在FastReport报表
Dim FDataSet = New System.Data.DataSet
Dim Table As New System.Data.DataTable
\'Table=DataTables("gxscjh").BaseTable.copy
Table=e.Form.Controls("Table1")
FDataSet.Tables.Add(Table)
Dim report As New FastReport.Report
report.RegisterData(FDataSet)
report.GetDataSource(DataTables("gxscjh").BaseTable.copy.TableName).Enabled = True
\'空白格式报表设计
\'report.Design()
\'report.Dispose()
\'指定报表修改
\'report.Load(ProjectPath & "Skins\\" & "工序生产计划.frx")
\'report.Design()
\'report.Dispose()
\'
\'指定报表预览打印
report.Load(ProjectPath & "Skins\\" & "工序生产计划.frx")
report.Prepare()
report.ShowPrepared()
-- 发布时间：2019/8/9 15:29:00
--
Table=DataTables("gxscjh").BaseTable.copy ’这样可行 DataTables("gxscjh") 是sql视图查询表
Table=e.Form.Controls("Table1") ’这样不行 想用当前窗口数据生成打印内容--当前表存在筛选操作！
-- 发布时间：2019/8/9 15:31:00
--
Table=e.Form.Controls("Table1") .table.datatable.BaseTable.copy
-- 发布时间：2019/8/9 15:33:00
--
谢谢
-- 发布时间：2019/8/9 15:41:00
--
Dim FDataSet = New System.Data.DataSet
Dim Table As New System.Data.DataTable
\'Table=DataTables("gxscjh").BaseTable.copy 此代码是此表所有记录
Table=e.Form.Controls("Table1").Table.DataTable.BaseTable.copy 当前表默认加载所有数据 用此条件筛选后还是所有数据 请帮忙指导一下！
FDataSet.Tables.Add(Table)
Dim report As New FastReport.Report
report.RegisterData(FDataSet)
\'report.GetDataSource(DataTables(Table).BaseTable.copy.TableName).Enabled = True
report.GetDataSource(e.Form.Controls("Table1").Table.DataTable.BaseTable.copy.TableName).Enabled = True
report.Load(ProjectPath & "Skins\\" & "工序生产计划.frx")
report.Prepare()
report.ShowPrepared()
-- 发布时间：2019/8/9 15:44:00
--
请指导 如何把当前窗体表数据生成 FastReport的数据表打印代码 谢谢！
-- 发布时间：2019/8/9 15:46:00
--
方法1、窗口表改为使用sqltable，根据需要加载数据而不是做筛选
2、直接按条件对DataTables("gxscjh")重新加载需要的数据。
-- 发布时间：2019/8/9 15:52:00
--
用狐表内置的筛选不能实现我想打印当前表显数据的心愿么 很想这样实现呢
-- 发布时间：2019/8/9 16:01:00
--
筛选是针对table的，取DataTable.BaseTable数据只能做加载
-- 发布时间：2019/8/9 19:03:00
--
是不是Excel报表可以解决这个问题呢 感谢！