主题：函数怎么用

大神帮我解答一下示例
此主题相关图片如下：ljqq.jpg

：如图f21行的第一个0对比第2行的第一个9，我的函数表达式是：如果f2,1的第一=如果f2,2的第一，等就是是，不等就不。2比3，3比4，往下填充

Dim t As Table = Tables("表A")
For i As Integer = 1 To t.rows.count-1
    Dim r1 As Row = t.rows(i-1)
    Dim r2 As Row = t.rows(i)
    If r1.IsNull("第一列") OrElse r2.IsNull("第一列") Then
        r2("第二列") = "不"
    Else
        If r1("第一列").substring(0,1) = r2("第一列").substring(0,1) Then
            r2("第二列") = "是"
        Else
            r2("第二列") = "不"
        End If
    End If
Next

谢谢

请教群组对比的函数怎么写，r1对比（r2到r10）,如果（r2到r10）有和r1相同的就“有”要么“无”。谢谢
此主题相关图片如下：qq图片20171225111450.jpg

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.rows.count-1
    Dim r1 As Row = t.rows(i)
    Dim flag As String = "无"
    For j As Integer = i+1 To t.rows.count-1
        Dim r2 As Row = t.rows(j)
        If r1.IsNull("第一列") = False AndAlso r2.IsNull("第一列") = False AndAlso r1("第一列").substring(0,1) = r2("第一列").substring(0,1) Then
            flag = "有"
            Exit For
        End If
    Next
    r1("第二列") = flag
Next

谢谢

不好意思，我表达的不够明白，对比的是1行和{2行到10行}的第1个数字，就是{2行到10行}的第一个数字中有1行的数字，结果列就显示“有”要么“无”。2行对比{3行到11行}往下推对比。上图例应该第一个结果是“无”吧

不好意思，我表达的不够明白，对比的是1行和{2行到10行}的第1个数字，就是{2行到10行}的第一个数字中有1行第一个的数字，结果列就显示“有”要么“无”。2行对比{3行到11行}往下推对比。上图例应该第一个结果是“无”吧

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.rows.count-10
    Dim r1 As Row = t.rows(i)
    Dim flag As String = "无"
    For j As Integer = i+1 To i+9
        Dim r2 As Row = t.rows(j)
        If r1.IsNull("第一列") = False AndAlso r2.IsNull("第一列") = False AndAlso r1("第一列").substring(0,1) = r2("第一列").substring(0,1) Then
            flag = "有"
            Exit For
        End If
    Next
    r1("第二列") = flag
Next

如图f21行的第一个0对比第2行的第一个9，我的函数表达式是：如果f2,1的第一等于f2,2的第一，等就是是，不等就不。2比3，3比4，往下对比到第20行，假如f21行的第一个对比第2行的第一个的结果是（是）那么执行这样的一个代码：2比3，3比4，往下对比到第20行的结果里有（是）的结果，第2列显示（是有），2比3，3比4，往下对比到第20行的结果里无（是）的结果，第2列显示（是有）！假如f21行的第一个对比第2行的第一个的结果是（不）那么不执行上面的代码。