If dc.name.Contains(Product & "_已巡数") Then
                cmd.CommandText ="Se lect Count(*) From {巡察工作安排} "
                Dim dt11 As DataTable
                dt11 = cmd.ExecuteReader()
                Dim Ps As List(Of String)
                Ps = dt11.sqlGetValues("巡察对象")
                For Each P As String In Ps
                    cmd.CommandText ="Se lect Count(*) From {巡察工作安排} Where 巡察对象属性 = \'" & Product & "\' and 巡察对象 = \'" & P & "\'"
                    If cmd.ExecuteScalar > 0 Then
                        output.show(cmd.ExecuteScalar)   得到的数据是3  预实现得到的数据是2
                         bb(Product & "_已巡数")=cmd.ExecuteScalar
                        yxs1= yxs1 +  cmd.ExecuteScalar
                        bb("总计_已巡数")=yxs1
                    End If
                Next
            End If

Select Count(*) 如何实现多条符合条件的数据，在属性和对象都相同的情况下，只计算一次呢？

比如巡察工作安排表中有如下记录：

巡察对象属性     巡察对象

事业单位           某某医院

企业单位           某某投资工资

企业单位           某某投资工资

统计数据的话  就只能算两个数据   不能计算为三个数据