第一次BI发帖~VBS合并分区时报这个错“合并分区不允许使用 Null 源。”
代码如下:
...
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