日期:2014-05-17 浏览次数:20463 次
...
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