Try
Dim DDTtemp As New DataSet
DDTtemp = DDSet.Tables(0).DataSet.Copy
Dim reportset As New ReportPrintShipLot
reportset.SetDataSource(DDTtemp.Tables(0))
ReportVeiwer.CrystalReportViewer1.ReportSource = reportset
ReportVeiwer.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim tbl As DateTable = TryCast(Gridview1.DataSource, DataTable)
Date :
2010-07-06 16:14:35
By :
tungman
No. 4
Guest
Dim tbl As DateTable = TryCast(Gridview1.DataSource, DataTable)
เอาไว้ตรงส่วนไหนของ code นี้ค่ะ Code (VB.NET)
Try
Dim DDTtemp As New DataSet
DDTtemp = DDSet.Tables(0).DataSet.Copy
Dim reportset As New ReportPrintShipLot
reportset.SetDataSource(DDTtemp.Tables(0))
ReportVeiwer.CrystalReportViewer1.ReportSource = reportset
ReportVeiwer.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try