主题：获取筛选状态下最后一行数据

 要改成具体的表名，如

Dim t As Table = Tables("表A")
If t.Rows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If
Dim dr As Row = t.rows(t.Rows.Count - 1) '获得最后一行
For Each dc As Col In t.Cols
    e.DataRow(dc.Name) = dr(dc.Name) '将最后一行的内容复制到新增行中.
Next