For Each t As DataTable In DataTables Select Case t.Name Case "生产计划","铝箔计划","订单","产品入库表","铝箔退火炉" DataTables(t.Name).loadFilter = "[结转] = False" DataTables(t.Name).load End Select Next