要继续判断
If r("日期分组") = "年" Then
b.VGroups.AddDef(nums1(index), DateGroup.Year, r("模式"))
ElseIf r("日期分组") = "月" Then
b.VGroups.AddDef(nums1(index), DateGroup.Month, r("模式"))
End If