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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教老师，如果获取当前行的上一行某列的值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113420)

--  作者：稻香
--  发布时间：2018/1/15 17:58:00
--  请教老师，如果获取当前行的上一行某列的值
如题：请教老师，如果获取当前行的上一行某列的值

--  作者：有点甜
--  发布时间：2018/1/15 18:14:00
--
Dim t As Table = Tables("表A")
Dim r As Row = t.Current
Dim pr As Row
If r Is Nothing Then
    msgbox("表格为空")
ElseIf r.Index = 0 Then
    msgbox("没有上一行")
Else
    pr = t.rows(r.Index-1)
    msgbox(pr.index)
End If