For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
改成
For r As Integer = 0 To iif(dt.Rows.Count>60, 59, dt.Rows.Count-1) '填入数据