判断取得第一个 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

图片点击可在新窗口打开查看此主题相关图片如下：111111.png

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

[此贴子已经被作者于2019/12/5 12:32:20编辑过]

请老师指导一下，这个条件应该怎么写，谢谢。

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

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

[此贴子已经被作者于2019/12/6 11:12:42编辑过]

If dr.isnull("身份证号码") OrElse dr.isnull("证书名称") OrElse dr.isnull("证书等级") OrElse dr.isnull("证书专业") Then
dr("补助标准") = Nothing

else
If dr("证书名称") = "注册建造师" Then

老师，红色代码位置路基不对，我需求是：如果为二级时，先看同一个人一级里面有没有相同专业，如果有，补助为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

Dim ds1 As DataRow= dt.sqlFind("[身份证号码] = '"& dr("身份证号码") & "'and [证书专业] = '"& dr("证书专业") & "' and 证书等级=‘一级’")
                    If ds1 IsNot Nothing Then
                        dr("补助标准") = "0"
                    Else
                        Dim ds2 As DataRow= dt.sqlFind("[身份证号码] = '"& dr("身份证号码") & "'and [证书专业] <> '"& dr("证书专业") & "' and 证书等级=‘二级’")
                        If ds2 IsNot Nothing Then

主题：判断取得第一个