主题：根据表中guid不重复值，进行数据查找统计，结果只统计了第一个guid的数据

根据表中guid不重复值，进行数据查找统计，结果只统计了第一个guid的数据

麻烦老师们指导下  谢谢！

当前代码如下：

Dim cmd As new SQLCommand
cmd.Conn ect i
cmd.CommandText ="se lect * from {监督任务台账}"
Dim dt2 As DataTable = cmd.ExecuteReader()
Dim Products As List(Of String)
Products = dt2.GetValues("guid")
For Each Product As String In Products
    output.show(Product)
    cmd.CommandText ="sel ect guid from {日常监督检查登记台账} where 主表guid='" & Product & "'"
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        output.show(Values("Guid"))
        Dim d1,d2,d3,d4,d5 As Integer
        d1=Values.Count
        output.show(d1)
        cmd.CommandText ="sel ect * from {监督发现问题台账} where  主表guid='" & Values("Guid") & "'"
        output.show(cmd.CommandText)
        Dim dt1 As DataTable = cmd.ExecuteReader()
        If dt1.DataRows.Count>0 Then
            d2=dt1.DataRows.Count
            output.show(d2)
        End If
        cmd.CommandText ="sele ct * from {监督发现问题台账} where 办理情况='已经办结' and 主表guid='" & Values("Guid") & "'"
        output.show(cmd.CommandText)
        Dim dt21 As DataTable = cmd.ExecuteReader()
        If dt21.DataRows.Count>0 Then
            d3=dt21.DataRows.Count
            output.show(d3)
        End If
        cmd.CommandText ="upd ate {监督任务台账} set 检查数='" & d1 & "',问题数='" & d2 & "',已处理数='" & d3 & "' where  guid='" & Product & "'"
        output.show(cmd.CommandText)
        cmd.ExecuteNonQuery()
    End If
Next

运行结果如下：