请问OLAP怎么在实际中应用

Question

你说的是编程怎么实现吗？
给你一个VB。NET的例子
'Imports MicrosoftNamespace DC.Application.CRM.adomdCRM
    Public Class Cadomd_crm
        Private ds As DataSet = Nothing
        Private cst As ADOMD.Cellset = Nothing
        Public Sub New()        End Sub
        Public Function GetADOMDDataSet(ByVal strConnection As String, ByVal strMDX As String) As DataSet            cst = New ADOMD.Cellset()            cst.Open(strMDX, strConnection)
            BuildDataTable()
            FullData()
            GetADOMDDataSet = ds        End Function        Private Sub BuildDataTable()
            Dim table As DataTable
            Dim i As Integer
            Dim columns As DataColumnCollection
            table = New DataTable("myadomd")
            columns = table.Columns
            columns.Add("维度", System.Type.GetType("System.String"))
            For i = 0 To cst.Axes(0).Positions.Count - 1
                ' strColumnHeader = strColumnHeader & cst.Axes(0).Positions(i).Members(0).Caption & vbTab & vbTab & vbTab & vbTab
                columns.Add(cst.Axes(0).Positions(i).Members(0).Caption, System.Type.GetType("System.String"))
            Next
            ds = New DataSet()
            ds.Tables.Add(table)
        End Sub        Private Sub FullData()
            Dim temprow As DataRow
            Dim j, k As Integer
           
            For j = 0 To cst.Axes(1).Positions.Count - 1
                temprow = ds.Tables(0).NewRow()
                ' strRowText = strRowText & cst.Axes(1).Positions(j).Members(0).Caption & vbTab & vbTab & vbTab & vbTab
                temprow(0) = cst.Axes(1).Positions(j).Members(0).Caption
                For k = 0 To cst.Axes(0).Positions.Count - 1
                    ' strRowText = strRowText & cst(k, j).FormattedValue & vbTab & vbTab & vbTab & vbTab
                    temprow(k + 1) = cst(k, j).FormattedValue
                Next
                ds.Tables(0).Rows.Add(temprow)
            Next
        End Sub
    End Class
End Namespace