Dim bb01 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪处分\'")
    Dim bb21 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪处分\'")
    Dim bb11 As String
    If bb01 IsNot Nothing Then
        bb11="受到党纪处分" & bb21 & "次?"
    Else
        bb11="未受党纪处分?"
    End If
   
    Dim bb02 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'政纪处分\'")
    Dim bb22 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'政纪处分\'")
    Dim bb12 As String
    If bb02 IsNot Nothing Then
        bb12="受到政纪处分" & bb22 & "次?"
    Else
        bb12="未受政纪处分?"
    End If
   
   
    Dim bb03 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'政务处分\'")
    Dim bb33 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'政务处分\'")
    Dim bb13 As String
    If bb03 IsNot Nothing Then
        bb13="受到政务处分" & bb33 & "次?"
    Else
        bb13="未受政务处分?"
    End If
   
    Dim bb04 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪政纪处分\'")
    Dim bb44 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪政纪处分\'")
    Dim bb14 As String
    If bb04 IsNot Nothing Then
        bb14="受到党纪政纪处分" & bb44 & "次?"
    Else
        bb14="未受党纪政纪处分?"
    End If
   
   
    Dim bb05 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪政纪政务处分\'")
    Dim bb55 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'党纪政纪政务处分\'")
    Dim bb15 As String
    If bb05 IsNot Nothing Then
        bb15="受到党纪政纪政务处分" & bb55 & "次?"
    Else
        bb15="未受党纪政纪政务处分?"
    End If
   
   
   
    e.DataRow("回复内容")= bb11 & bb12 & bb13 & bb14 & bb15
   

如何实现   通过上述代码  对应的去查找表中符合条件的数据  并sqlCompute大于0 

当以下都没有的时候   就提示 未受党纪政纪政务处分

当以下有其中一个的时候  就提示对应的处分 类别

党纪政纪政务处分

党纪政纪处分

党纪政务处分

政纪政务处分

党纪处分

政务处分

政纪处分

下述代码只能实现当前类别找不到的时候，都只显示”未受党纪政纪政务处分“，如果类别=政务处分， 就应该显示受政务处分  未受党纪处分 未受政纪处分

        Dim Products As List(Of String)
        Products = DataTables("代码表").GetValues("内容","代码=\'处分种类\'")
        For Each Product As String In Products          
            Dim bb01 As DataRow = DataTables("说明与报告").sqlfind("身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'"& Product &"\'")
            Dim bb21 As Integer =DataTables("说明与报告").sqlCompute("count(身份证号)","身份证号=\'"& e.DataRow("身份证号") &"\'and 类别=\'"& Product &"\'")
            Dim bb11 As String
            If bb01 IsNot Nothing Then
                bb11=bb01("时间") &"受" & Product & bb21 & "次、"
            Else
                bb11="未受党纪政纪政务处分、"
            End If

            bb11 &= bb11
        Next

老师  还得麻烦你  我弄了一下没有成功实现  不是like 模糊操作

比如：

有了党纪政纪政务处分 这个后  会把所有的党纪政纪政务处分  时间  类别  内容  次数 全部显示出来

如果党纪处分  有数据 就显示党纪处分的数据

如果政纪处分  有数据 就显示政纪处分的数据

如果政务处分  有数据 就显示政务处分的数据

如果【党纪处分、政纪处分】都有数据  那就显示【党纪政纪处分】  所有的党纪政纪处分数据  时间  类别  内容  次数 全部显示出来

如果【党纪处分、政纪处分、政务处分】都有数据  那就显示【党纪政纪政务处分】  所有的党纪政纪政务处分数据  时间  类别  内容  次数 全部显示出来