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

Hi Philip,

Thanks a ton. It got worked after doing the modification you suggested.

Regards,

Narasimhan.

Hello, Narasimhan!

In the code behind (MainWindow.xaml.vb) you need to change the

EntriesLevel.LevelExpressionPath = ""

with

EntriesLevel.LevelExpressionPath = Column.ColumnName

Let me know if this fixes your issue.

Regards,

Philip

Hi Todor,

First of all sorry for replying the older thread. I have gone through the sample project attached by you.

I have upgraded that project for 13.1 version. My problem here is after i drag drop a field from Data selector to Pivot Grid (either in Column or Row) and when i expand the field in pivot grid, it show the Cube name instead of its detail values.

Kindly help me.

Thanks in advance,

Narasimhan.

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 ?