Tables("查看尺码表_Table1").DataSource = dtb.BuildDataSource()
改成
Tables("查看尺码表_Table1").DataSource = DataTables("统计")