函数怎么用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 函数怎么用

共有2644人关注过本帖树形打印复制链接主题：函数怎么用

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/22 15:36:00 [显示全部帖子]

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/25 12:09:00 [显示全部帖子]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/25 14:15:00 [显示全部帖子]

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/15 10:37:00 [显示全部帖子]

1、执行9楼代码有什么问题？具体说明怎么不对了。

2、上传具体的foxtable实例，具体说明你最后要得到什么结果。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/15 11:05:00 [显示全部帖子]

以下是引用15014737345在2018/5/15 11:02:00的发言：
执行9楼代码没有问题，只是尝试一个代码执行两个步骤！如果实在不行就分步执行吧！谢谢

没看懂你表达的意思。请上传具体foxtable实例具体说明你最后需要得到的结果。

下一主题 >> << 上一主题

主题：函数怎么用