Dim ds As New DataSet ds.Tables.Add(Me.StockTempsBO1.CurrentDataTable) Dim ddate As Date ddate = Me.CalcDate.CurrentDate.ToLongDateString
Dim ds As New DataSet ds.Tables.Add(Me.StockTempsBO1.CurrentDataTable) Dim ddate As Date
ddate = Me.CalcDate.CurrentDate.ToLongDateString
Dim report As New StockthatFellThruReport report.XrLabelheading.Text = crodeoname report.XrLabelheading1.Text = "Stock That Fell Thru from Draw" report.XrLabelheading2.Text = cwhatevt report.XrLabelheading3.Text = ddate.ToString("D") report.DataSource = ds report.DataMember = Me.StockTempsBO1.TableName report.ShowPreview()
I am not sure it is sound code but it works great and does exactly what I want it too. Comments Welcome.