Select Case MainTable.Name
    Case "三新项目汇总表"
        MainTable.DataTable.DataRows.Clear
        Dim at As DataTable = DataTables("三新项目")
        For Each year As String In at.GetUniqueValues("年度 is not null", "年度")
            Dim r As Row = MainTable.AddNew
            r("海南州人民医院三新项目汇总表_年度") = year
            r("海南州人民医院三新项目汇总表_合计") = at.Compute("Count(_Identify)", "年度 = " & year)
            r("海南州人民医院三新项目汇总表_卫生厅申报项目数_项目数") = at.Compute("Count(_Identify)", "年度 = " & year & " And 申报情况= \'申报\'")
            r("海南州人民医院三新项目汇总表_卫生厅申报项目数_省内优秀") = at.Compute("Count(_Identify)", "年度 = " & year & " And 申报结果 = \'省内优秀\'")
            r("海南州人民医院三新项目汇总表_卫生厅申报项目数_省内先进") = at.Compute("Count(_Identify)", "年度 = " & year & " And 申报结果 = \'省内先进\'")
            r("海南州人民医院三新项目汇总表_卫生厅申报项目数_国内先进") = at.Compute("Count(_Identify)", "年度 = " & year & " And 申报结果 = \'国内先进\'")
            r("海南州人民医院三新项目汇总表_卫生厅申报项目数_申报获奖情况小计") = at.Compute("Count(_Identify)", "年度 = " & year & " And (申报结果 = \'国内先进\' Or 申报结果 = \'省内先进\'Or 申报结果 = \'省内优秀\')")
            r("海南州人民医院三新项目汇总表_项目类别_临床") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'临床\'")
            r("海南州人民医院三新项目汇总表_项目类别_药学") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'药学\'")
            r("海南州人民医院三新项目汇总表_项目类别_其他") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'其他\'")
            r("海南州人民医院三新项目汇总表_项目类别_影像病理电生理") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'医技\'")
            r("海南州人民医院三新项目汇总表_项目类别_护理") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'护理\'")
            r("海南州人民医院三新项目汇总表_项目类别_检验") = at.Compute("Count(_Identify)", "年度 = " & year & " And 专业类别= \'检验\'")
            r("海南州人民医院三新项目汇总表_申报项目数_通过开展项目数") = at.Compute("Count(_Identify)", "年度 = " & year & " And 院内开展情况= \'开展\'")
            r("海南州人民医院三新项目汇总表_申报项目数_申报开展项目数") = at.Compute("Count(_Identify)", "年度 = " & year & " And (学术会审议情况= \'通过\' Or 学术会审议情况= \'未通过\')")
        Next

End Select