The code below is in vb.net and has many things that probably you don’t need, but hopefully will give you an idea.

I think there should be more examples in the Infragistics help / samples.

Good luck.

Public Sub BuildDataSourceFromDataTable2(ByVal InputTable As System.Data.DataTable, ByVal oCubeName As String)
 
    Dim typeBuilder As New DynamicTypeBuilder
    With typeBuilder
        .DynamicAssemblyName = "MyAssembly_2"
        .DynamicTypeName = oCubeName
    End With
 
    Dim properties As IList(Of DynamicTypePropertyInfo) = New List(Of DynamicTypePropertyInfo)()
 
    Dim oCOL As System.Data.DataColumn
    Dim PropertyInfo As DynamicTypePropertyInfo
    Dim oROW As System.Data.DataRow
 
    For Each oCOL In InputTable.Columns
        PropertyInfo = New DynamicTypePropertyInfo
        PropertyInfo.PropertyName = FIELD_NAMES_MAKER(oCOL.ColumnName)
        PropertyInfo.PropertyType = oCOL.DataType
        properties.Add(PropertyInfo)
    Next
 
    Dim DynamicType As System.Type = typeBuilder.GenerateType(properties)
    Dim ListType = GetType(List(Of ))
    Dim GenericListType = ListType.MakeGenericType(DynamicType)
    Dim List As IList = DirectCast(Activator.CreateInstance(GenericListType), IList)
 
 
    For Each oROW In InputTable.Rows
        Dim MyDynamicInstance As Object = Activator.CreateInstance(DynamicType)
        For Each oCOL In InputTable.Columns
            Dim propertyVal As Reflection.PropertyInfo = DynamicType.GetProperty(FIELD_NAMES_MAKER(oCOL.ColumnName))
            If IsDBNull(oROW(oCOL)) = False Then
                propertyVal.SetValue(MyDynamicInstance, oROW(oCOL), Nothing)
            End If
        Next
        List.Add(MyDynamicInstance)
    Next
 
 
    '**************************************************
    'Improving the captions and formatting
    Dim cubeMetadata As New CubeMetadata()
    cubeMetadata.DisplayName = "Budgets and Actuals"
    cubeMetadata.DataTypeFullName = "Budgets"
 
    Dim OutputFlatDataSource = New FlatDataSource
 
 
    For Each oCOL In InputTable.Columns
        Dim oDIM_METADATA As New DimensionMetadata()
        oDIM_METADATA.SourcePropertyName = FIELD_NAMES_MAKER(oCOL.ColumnName)
        oDIM_METADATA.DisplayName = FIELD_NAMES_MAKER(oCOL.ColumnName) 'This is only to make the names more user friendly.
 
        Select Case True
            Case oCOL.ColumnName.Contains("Sales")
                oDIM_METADATA.DisplayFormat = "{0:C0}"
                oDIM_METADATA.DimensionType = DimensionType.Measure
 
            Case oCOL.ColumnName.Contains("Budget")
                oDIM_METADATA.DisplayFormat = "{0:C0}"
                oDIM_METADATA.DimensionType = DimensionType.Measure
 
            Case oCOL.ColumnName.Contains("Tot")
                oDIM_METADATA.DisplayFormat = "{0:C0}"
                oDIM_METADATA.DimensionType = DimensionType.Measure
 
        End Select
        cubeMetadata.DimensionSettings.Add(oDIM_METADATA)
    Next
 
    'ADDING HIERARCHIES TO EACH DIMENSION  ****************
    For Each oDIM In cubeMetadata.DimensionSettings
        If oDIM.DimensionType = 3 Then '(3 means Dimensions, not Measures)
            Dim oHIERARCHY As New HierarchyDescriptor
            oHIERARCHY.SourcePropertyName = oDIM.SourcePropertyName
 
            Dim oLEVEL_DESCRIPTOR As New HierarchyLevelDescriptor
            oLEVEL_DESCRIPTOR.LevelName = "All " & oDIM.SourcePropertyName
            oHIERARCHY.LevelDescriptors.Add(oLEVEL_DESCRIPTOR)
 
            oLEVEL_DESCRIPTOR = New HierarchyLevelDescriptor()
            oLEVEL_DESCRIPTOR.LevelName = oDIM.SourcePropertyName & "s"
            oLEVEL_DESCRIPTOR.LevelExpressionPath = oDIM.SourcePropertyName
            oHIERARCHY.LevelDescriptors.Add(oLEVEL_DESCRIPTOR)
            OutputFlatDataSource.HierarchyDescriptors.Add(oHIERARCHY)
        End If
    Next
 
 
    OutputFlatDataSource.CubesSettings.Add(cubeMetadata)
    OutputFlatDataSource.DimensionsGenerationMode = DimensionsGenerationMode.Mixed 'this is very important
    OutputFlatDataSource.ItemsSource = List
 
 
    OutputFlatDataSource.Rows = DataSourceBase.GenerateInitialItems("[Customer Id].[Customer Id]")
 
    Me.XamPivotGrid1.DataSource = OutputFlatDataSource
    Me.XamPivotDataSelector1.DataSource = OutputFlatDataSource
 
End Sub

Thanks for your reply.

Would you have a sample of code showing how to turn this DataTable into a flatdatasource?

Thanks for your help.

Have you tried loading your XML data into a datatable and then using the flatdatasource for binding the PivotGrid.

I’m using the flatdatasoure from SQL tables and works quite well.

Cheers,

Fabian

Hello, could someone respond to me..?

I really need to use the PivotGrid with an XML file, and I cannot find how to reference the DynamicTypeBuilder using v2014.2 and Winforms .NET 4.0.

This is becoming to be urgent.

Hello, I have the Infragistics 2014.2 version and I am trying to use this framework to bind a XML file to the flatdatasource.

I referenced all Infragistics dll, but my solution cannot find a reference to DynamicTypeBuilder. Again, I am using Winforms and the 2014.2 version.

Thanks for your help.