主题：外部数据表刷新问题

如果是sqlserver数据源，试试

Dim dt As Date = Date.Today.AddDays(-7)
DataTables("订单出货表").LoadFilter = "制单日期>'" & dt & "'"
DataTables("订单出货表").Load()
With Tables("订单出货表")
    .Position = .Rows.Count - 1
End With