Tables("工作量计_Table1").DataSource = dtb.BuildDataSource()
改成
Tables("工作量计_Table1").DataSource = DataTables("医师工作量计")