主题：同列中不同行的差

之前就试过了，不行。

其它地方相应改改咯

都有改了，不行。就是查找不到相差一行的数据，是从相差两行开始查找。

   把P定义为从2开始，下面就正常了。

下面是相隔相同的行的两个数相加，提取和一样的两组或多于两组的数据。现在要改为：

提取和是等差关系的两组或多于两组的数据（等差是1时，两组就提取，如果不是1，就三组提取）

Dim t As Table = Tables("表A")

Dim c As Integer = t.Rows.Count - 1

Dim dict As new Dictionary(of Integer,List(of Integer))

Dim idx As Integer = 0

For i As Integer = 1 To c

    dict.Clear

    For k As Integer = 0 To c

        If k + i < c

            Dim d As Integer = t.Rows(k+i)("第三列") + t.Rows(k)("第三列") 

            If d > 0

                If dict.ContainsKey(d) Then

                    dict(d).add(k)

                    dict(d).add(k+i)

                Else

                    Dim lst As new List(of Integer)

                    lst.add(k)

                    lst.add(k+i)

                    dict.Add(d,lst)

                End If

            End If

        End If

  Next

    For Each key As Integer In dict.Keys

        If dict(key).count > 2 Then

           Output.Show("= " & key  )

            For Each m As Integer In dict(key)

             '   Output.Show(m)

       Dim r As Row = Tables("表b").AddNew()    

    ' r  = t.Rows(idx)

 'Dim r As Row  = t.Rows(idx)

                Dim r2 As Row = t.Rows(m)

                r("第四列") = r2("第二列")

                r("第五列") = r2("第三列")

                idx += 1

            Next

        End If

    Next

Next

是不是目前代码还实现不了？

搞不定