主题：老大 这个我怎么修改,可以达到我要的效果?

Arraylist.toArray()的用法

当使用ArrayList时，有时想获得一个实际的数组，这个数组包含了列表的内容。

呵呵，不用这个也行啊：

e.Form.StopRedraw
Dim cnt As Integer = Tables("月历").Rows.Count - 1
Dim Values(cnt) As Date
For i As Integer = 0 To cnt
    Dim r As Row = Tables("月历").Rows(i)
    If r.IsNull("日期") = False Then
        Values(i) = r("日期")
    End If
Next
For Each Value As Date In Values
    e.Form.Controls("Calendar1").BaseControl.BoldedDates =  values
Next
e.Form.ResumeRedraw