日期:2014-05-18 浏览次数:20500 次
... Dim partitionForMergin(1) As Partition If measureGroup.Partitions.Count > 1 Then partitionEnumerator = measureGroup.Partitions.GetEnumerator() Dim isMerginAble As Boolean isMerginAble = False If (partitionEnumerator.MoveNext()) Then defaultPartition = CType(partitionEnumerator.Current, Partition) isMerginAble = True End If If isMerginAble Then partitionForMergin(0) = measureGroup.Partitions.FindByName(defaultPartition.Name + "_TMP") defaultPartition.Merge(partitionForMergin) measureGroup.Refresh() End If End If