主题：如何获取上一行

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

 参考，查找到行以后 -1、+1得到对应的行号

 

http://www.foxtable.com/help/topics/0553.htm

 

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

 

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

.Position = r+1

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

With Tables("表B")
    Dim r As Integer
    r = .FindRow("[公司名称] Like '%湛江%'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        e.DataRow("公司名称") = .Rows(r-1)("公司名称")
    End If
End With

e.DataRow("公司名称")=CurrentTable.current("公司名称")

知道了，谢谢

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

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

不用改应该也没问题,因为是从第一行开始查找.