No the List is o.k. Have a short look at the source i posted.

I build the string from a stringlist.

The string is empty at the beginning.

Then I iterate all items in my stringlist.

if the string contains allready at least on item a "," is added.

and after that the actual measurement item is added ...

At the end of the loop i get a string with all measurements seperated by , but there is no , at the end of the string. (and none at the beginning because at this time the stringlength is 0)

Any other hints ?

Hi

Could you check your MeasureStringList value. I suppose that it ends with ',' and that is the reason measures to be empty.

Regards
Todor

Hello,

I translated the C# Source to VB .Net.

But i still have a problem. When i Assign the FlatDataSource to a XamPivotGridSelector the List of Measures is always empty.

Is there something wrong with my code ?

Thanks

Christian Gill

---------

Private Sub BuildDataSourceFromDataTable(ByVal InputTable As System.Data.DataTable, ByVal TabellenName As String, ByVal MeasureList As List(Of String), ByRef OutputFlatDataSource As FlatData.FlatDataSource)
        Dim Column As System.Data.DataColumn
        Dim PropertyInfo As DynamicTypePropertyInfo
        Dim Row As System.Data.DataRow
        Dim MeasureString As String

        Dim typeBuilder As New DynamicTypeBuilder
        With typeBuilder
            .DynamicAssemblyName = "MyAssembly"
            .DynamicTypeName = TabellenName
        End With

        Dim Properties As IList(Of DynamicTypePropertyInfo) = New List(Of DynamicTypePropertyInfo)
        For Each Column In InputTable.Columns
            PropertyInfo = New DynamicTypePropertyInfo
            With PropertyInfo
                .PropertyName = Column.ColumnName
                .PropertyType = Column.DataType
            End With
            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 = Activator.CreateInstance(GenericListType)
        Dim MeasureStringList As String = ""

        For Each Row In InputTable.Rows
            Dim MyDynamicInstance As Object = Activator.CreateInstance(DynamicType)
            For Each Column In InputTable.Columns
                Dim PropertyVal As System.Reflection.PropertyInfo = DynamicType.GetProperty(Column.ColumnName)
                If IsDBNull(Row(Column)) = False Then
                    PropertyVal.SetValue(MyDynamicInstance, Row(Column), Nothing)
                End If
            Next
            List.Add(MyDynamicInstance)
        Next

        OutputFlatDataSource = New FlatData.FlatDataSource
        With OutputFlatDataSource
            .ItemsSource = List
            .Cube = DataSourceBase.GenerateInitialCube(TabellenName)
            .Columns = DataSourceBase.GenerateInitialItems("[Columns]")
            .Rows = DataSourceBase.GenerateInitialItems("[Row]")
            For Each MeasureString In MeasureList
                If MeasureStringList.Length > 0 Then
                    MeasureStringList = MeasureStringList + ","
                End If
                MeasureStringList = MeasureStringList + MeasureString
            Next
            .Measures = DataSourceBase.GenerateInitialItems(MeasureStringList)
        End With


        For Each Column In InputTable.Columns
            Dim Hier As New FlatData.HierarchyDescriptor
            Hier.SourcePropertyName = Column.ColumnName
            Dim AllLevel As New FlatData.HierarchyLevelDescriptor
            AllLevel.LevelName = "Total " + Column.ColumnName
            Dim EntriesLevel As New FlatData.HierarchyLevelDescriptor
            EntriesLevel.LevelName = Column.ColumnName
            EntriesLevel.LevelExpressionPath = ""
            Hier.LevelDescriptors.Add(AllLevel)
            Hier.LevelDescriptors.Add(EntriesLevel)
            OutputFlatDataSource.HierarchyDescriptors.Add(Hier)
        Next
    End Sub

I am impressed. Thanks a lot. I will give it a try.