主题：[求助]

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