For Each r1 As Row In t1.Rows Dim i1 As Double = 0 Dim i2 As Double = 0 For Each gd As String In DataTables("数据表").GetValues("宽带帐号","装维人员姓名 = '" & r1("装维人员姓名") & "'") Dim count = DataTables("数据表").Compute("count(装维人员姓名)","装维人员姓名 = '" & r1("装维人员姓名") & "' and 宽带帐号 = '" & gd & "'") If count >= 2 Then i1 += 1 i2 += count End If Next r1("重复工单数量") = i2 r1("重复次数") = i1 Next