主题：如何获取上一行

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

 

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

 

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

 

With Tables("工艺流程")
    Dim r As Integer
    r = .FindRow("[工序名称] = '" & e.DataRow("本工序") & "'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        If r > 0 Then
            e.DataRow("下工序") = .Rows(r-1)("工序名称")
        End If
        If r < .Rows.Count - 1 Then
            e.DataRow("下工序") = .Rows(r+1)("工序名称")
        End If
    End If
End With

 

 代码没有问题，你的工序表都不按套路出牌啊

 

你的工序表不是应该不重复并排列正确的么？

 

那为什么要重复呢？工序不是唯一的么？

 工序不唯一，那怎么可能根据工序名知道是哪个流程。除非你指定对应的流程。意思是，必须确定唯一性，才能查。

 这样做不是根本，如果和流程无关，你单独做一个唯一的工序表吧。

 

那你就给工序表加个编号列，编号按照工序去设置，比如 1、2、3、4、5、6、7 这样。

 

不然就没办法，因为根本就不能确定你的工序是怎么顺序排列的啊