改成
Dim rss As new List(of Row)
或者rrs重新赋值
msgbox(0)rss = new List(Of Row) r = Tables("表A").Current rss.Add(r)