这样?
Dim f As New Fillerf.SourceTable = DataTables("表A") f.DataTable = DataTables("表B") f.Filter = Tables("表A").Filterf.Fill()