1、你的代码是:
For Each Km As String In Kms DataTables(Km & tjnj & "级高理前 N 名").DataRows.Clear() ...Next
等于每次增加某人数据之前,就把上一个人的数据清除了,当然只有一个人的数据。
红色这行应该删除。
2、不是什么都需要用Filler的,复制数据方法很多,你这里适合:
http://www.foxtable.com/help/topics/1533.htm