主题：求助？这段代码怎么改？

表内截图
此主题相关图片如下：qq截图20180408185559.jpg

未知编译错误？

If e.DataCol.name = "年度" OrElse e.DataCol.name = "操作人储备业绩" Then
    If e.DataRow.Isnull("年度") = False AndAlso e.DataRow.Isnull("操作人储备业绩") = False Then
        '不一样
        Dim filter As String
        If e.DataRow("部门") = "设计部"
            filter  = "店面 = '" & e.DataRow("店面") & "' and 设计师 = '" & e.DataRow("操作人储备业绩") & "'"
        Else
            filter  = "店面 = '" & e.DataRow("店面") & "' and 市场部 = '" & e.DataRow("操作人储备业绩") & "'"
        End If
       
        For k As Integer = 1 To 12
            Dim f As Date = new Date(val(e.DataRow("年度")), k, 1)
            Dim sum As Integer = DataTables("峰和设计部").compute("sum(预签金额)", filter & " and 操作性 = '预签' and 预签时间 >= #" & f & "# and 预签时间 < #" & f.addmonths(1) & "#")
            e.DataRow("M" & k) = sum
        Next
    Else
        For k As Integer = 1 To 12
            e.DataRow("M" & k) = Nothing
        Next
    End If
End If