HOLA ESTOY BUSCANDO EN INTERNET COMO MOSTRAR EN CRYSTAL REPORTS UN DATATABLE QUE HE CREADO POR CODIGO, ESTE ES MI DATATABLE:
Código:
Private Sub DETALLES(ByVal P As Integer)
Dim dataTable As New DataTable
Dim dataRow As DataRow
dataTable.Columns.Add("FECHA", GetType(String))
dataTable.Columns.Add("ORIGEN", GetType(String))
dataTable.Columns.Add("DESTINO", GetType(String))
dataTable.Columns.Add("H_S", GetType(String))
dataTable.Columns.Add("H_L", GetType(String))
dataTable.Columns.Add("HRS_VLO", GetType(String))
dataTable.Columns.Add("T_VLO", GetType(String))
dataTable.Columns.Add("n_p", GetType(String))
Dim MyCommand As New iDB2Command("Select * From FCPRVDF where ffactu=" & P, New iDB2Connection("datasource=192.168.1.200;UserId=ismael;password=ism0204;defaultCollection=desarrollo"))
MyCommand.Connection.Open()
Dim dr As IDataReader = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read
dataRow = dataTable.NewRow
dataRow.Item("FECHA") = dr("FFCORI")
dataRow.Item("ORIGEN") = ESP(dr("FCVORI"))
dataRow.Item("DESTINO") = ESP(dr("FCVDES"))
dataRow.Item("H_L") = dr("FHRLLV")
dataRow.Item("HRS_VLO") = dr("FHRVUE")
dataRow.Item("n_p") = dr("FFACTU")
dataRow.Item("H_S") = dr("FHRSAV")
dataTable.Rows.Add(dataRow)
End While
MyCommand.Connection.Close()
End Sub
COMO DIJE LO QUE NECESITO ES MOSTRAR EN CRYSTAL ESTE DATATABLE, SI ALGUIEN PUEDE AYUDARME SE LO AGRADECERE INFINITAMENTE.