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()