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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获取上一行

共有4169人关注过本帖树形打印复制链接主题：如何获取上一行

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

如何获取上一行 发帖心情

Post By：2014/7/11 14:14:00 [显示全部帖子]

我编制了{日报表}有上工序、本工序和下工序等，我想在输入本工序时，能够查找{工艺流程}中的工序所对应的本工序，上一行的工序能自动显示在上工序这一单元格，下一行的工序能自动显示在下工序这一单元格。这个应该如何编写代码。

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：2014/7/11 14:47:00 [显示全部帖子]

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like '%湛江%'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

这个查找到为湛江的上一行，如何定义，

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：2014/7/11 14:54:00 [显示全部帖子]

这个如何来表达上一行的信息，e.DataRow("公司名称")=上一行的公司名称（这个如何来写。）

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：2014/7/11 15:13:00 [显示全部帖子]

知道了，谢谢

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：2014/7/11 15:31:00 [显示全部帖子]

再请教一下，我们公司的流程可能存在连续的，如：工序名称，第一行是成型，第二行是清灰，第三行是清灰，第四行是清灰，第五行是装钵，我想在日报表中输入本工序清灰，其上工序自动显示成型，下工序自动显示装钵，以下代码应该如何修改：

With Tables("工艺流程")
    Dim r As Integer
    r = .FindRow("[工序名称] Like '% e.DataRow("本工序") %'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r+1 '定位到找到的行。
    End If
End With

e.DataRow("下工序")=CurrentTable.current("工序名称")

lfxxdt

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

加好友

发短信

等级：二尾狐帖子：513 积分：3941 威望：0 精华：0 注册：2012/6/26 13:23:00

Post By：2014/7/11 15:51:00 [显示全部帖子]

那这个显示上一行工序就有问题了

With Tables("工艺流程")
    Dim r As Integer
    r = .FindRow("[工序名称] Like '% e.DataRow("本工序") %'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r-1 '定位到找到的行。
    End If
End With

e.DataRow("上工序")=CurrentTable.current("工序名称")