哦,对了,这个只是开发版的有效,你要用load
Dim dic As new Dictionary(Of Table, String)For Each t As Table In Tables dic.Add(t, t.Filter)NextFor Each dt As DataTable In DataTables dt.LoadNextFor Each key As Table In dic.Keys key.Filter = dic(key)Next