老师，我下面这个表，怎么得到这样的补助标准结果，单个人最高补助为：3000.00？

此主题相关图片如下：111111.png


此主题相关图片如下：222222.png

老师，以下代码，证书专业没起到作用呢？前面判断了证书专业为空，补助为空啊，逻辑也还有点问题，请老师看看。

Select Case e.DataCol.name
    Case "身份证号码","证书名称","证书等级","证书专业"
        Dim dt As DataTable = e.DataTable
        Dim dr As DataRow = e.DataRow
        If dr.isnull("身份证号码") OrElse dr.isnull("证书名称") OrElse dr.isnull("证书等级") OrElse dr.isnull("证书专业") Then
            dr("补助标准") = Nothing
            If dr("证书名称") = "注册建造师" Then
                If dr("证书等级") = "一级" Then
                    Dim ds As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] <> \'"& dr("证书专业") & "\'")
                    If ds IsNot Nothing Then
                        dr("补助标准") = "500"
                    Else
                        dr("补助标准") = "1500"
                    End If
                End If
                If dr("证书等级") = "二级" Then
                    Dim ds1 As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] <> \'"& dr("证书专业") & "\'")
                    If ds1 IsNot Nothing Then
                        dr("补助标准") = "100"
                    Else
                        dr("补助标准") = "200"
                        If dr("证书等级") = "二级" Then
                            Dim ds2 As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] = \'"& dr("证书专业") & "\'")
                            If ds2 IsNot Nothing Then
                                dr("补助标准") = "0"
                            End If
                        End If
                    End If
                End If
            End If
        End If
End Select

老师，红色代码位置路基不对，我需求是：如果为二级时，先看同一个人一级里面有没有相同专业，如果有，补助为0，如果没有，第1个二级补助200.00，后面的增加1个专业补助100.

Select Case e.DataCol.name
    Case "身份证号码","证书名称","证书等级","证书专业"
        Dim dt As DataTable = e.DataTable
        Dim dr As DataRow = e.DataRow
        If dr.isnull("身份证号码") OrElse dr.isnull("证书名称") OrElse dr.isnull("证书等级") OrElse dr.isnull("证书专业") Then
            dr("补助标准") = Nothing
        Else
            If dr("证书名称") = "注册建造师" Then
                If dr("证书等级") = "一级" Then
                    Dim ds As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] <> \'"& dr("证书专业") & "\'")
                    If ds IsNot Nothing Then
                        dr("补助标准") = "500"
                    Else
                        dr("补助标准") = "1500"
                    End If
                End If
                If dr("证书等级") = "二级" Then
                    Dim ds1 As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] = \'"& dr("证书专业") & "\'")
                    If ds1 IsNot Nothing Then
                        dr("补助标准") = "0"
                    Else
                        Dim ds2 As DataRow= dt.sqlFind("[身份证号码] = \'"& dr("身份证号码") & "\'and [证书专业] <> \'"& dr("证书专业") & "\'")
                        If ds2 IsNot Nothing Then
                            dr("补助标准") = "200"
                        Else
                            dr("补助标准") = "100"
                        End If
                    End If
                End If
            End If
        End If
End Select