问题找到了,是
Dim fsd As New List(of Integer)For Each r1 As Row In Tables("自定义统计分数段").Rows If r1.Checked Then fsd.add(r1("分数段")) End If
没有添加数据