主题：代码增加条件求助！

此主题相关图片如下：}4)nz`}a%c3l%sgl_9kbe`0.png

图中的“鉴定上报表”是对项目中的“报名登记表”、“证书编号表”中的不同级别的各工种的人数进行统计的，但只能进行累计统计，我要是想进行某年的“上半年”、“下半年”、“全年”的各进行一次上报统计，那么这三张表是不是要加入相应的“上半年”、“下半年”、“全年”这样的列？窗口中是不是应该也要加入一个下拉列表框控件进行选择查询？

另外下面这段代码要怎么调整？求指教？

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "申报鉴定工种" Then
    Dim dt As Table = Tables("报名登记表")
    dr("鉴定考核人数_初级工_2") = dt.Compute("Count(姓名)", "鉴定等级 = '初级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_中级工_3") = dt.Compute("Count(姓名)", "鉴定等级 = '中级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_高级工_4") = dt.Compute("Count(姓名)", "鉴定等级 = '高级工' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_技师_5") = dt.Compute("Count(姓名)", "鉴定等级 = '技师' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("鉴定考核人数_高级技师_6") = dt.Compute("Count(姓名)", "鉴定等级 = '高级技师' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dt = Tables("证书编号表")
    dr("取得证书人数_初级工_8") = dt.Compute("Count(姓名)", "鉴定等级 = '初级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_中级工_9") = dt.Compute("Count(姓名)", "鉴定等级 = '中级工' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_高级工_10") = dt.Compute("Count(姓名)", "鉴定等级 = '高级工' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_技师_11") = dt.Compute("Count(姓名)", "鉴定等级 = '技师' and 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
    dr("取得证书人数_高级技师_12") = dt.Compute("Count(姓名)", "鉴定等级 = '高级技师' And 申报鉴定工种 = '" & dr("申报鉴定工种")  & "'" )
End If

程版，这句话不是很明白，能再详细说明一下吗？

因为我可能在9月份上报上半年的统计数据，那么几个表要不要加列数以引用？代码我该怎么改写？