如果一行数据,用得着Filler吗?
Dim r1 As Row = Tables("XXX").Current
Dim r2 As Row = Tables("YYY").AddNew
Dim cNames As String = {"sd","fdfd","eert","dre"}
For Each c As String In cNames
r2(c) = r1(c)
Next