主题：[求助]程序如何实现统计和赋值

Dim t As Table = Tables("北单_交易盈亏")

t.Filter = "id is not null"

t.sort = "期数,比赛号"

For i As Integer = 0 To t.Rows.count - 1 Step 3

    Dim r1 As Row = t.Rows(i)

    Dim r2 As Row = t.Rows(i+1)

    Dim r3 As Row = t.Rows(i+2)

    r1("测试") = "胜"

    r2("测试") = "平"

    r3("测试") = "负"

Next

t.sort = "期数,比赛号,平均概率 desc"

For i As Integer = 0 To t.Rows.count - 1 Step 3

    Dim r1 As Row = t.Rows(i)

    Dim r2 As Row = t.Rows(i+1)

    Dim r3 As Row = t.Rows(i+2)

    Dim str As String = ""

    str = r1("测试") & r2("测试")

    r1("胜平负") = str

    r2("胜平负") = str

    r3("胜平负") = str

Next

t.sort = ""