主题：想把专业报表生成的花名册的出生日期的格式改变如何实现？谢谢

……

                Dim AA As Object = tb.Rows(r)(ColNames(c))  '定义变量AA为Object类型数据（通用型，可存放任何类型的数据）
                If AA = "0"  Then  '如果变量AA为“0”执行如下语句
                    Rs2.Cells(r + 1, c).Text =""
                Else    '如果变量AA不为“0”执行如下语句
                    Rs2.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
                End If
            End If
            If ColNames(c) = "出生日期"
                Dim Multi As String = tb.Rows(r)(ColNames(c))
                Dim Values() As String
                Values = Multi.split("月")
                Rs2.Cells(r + 1, c).Text = Values(0) & "月"
            End If
……