主题：最末行如何接收以前行的内容？

                    end if
                Next
        else
            Dim r0 As Row = Tables("表A").Rows(0)
            r0("比较命令")  = "[" & r0("列") & "] "  & r0("比较") & " '" & r0("内容") & "'"
            if Currenttable.position+1 <  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
    If Currenttable.position > 0 Then
        Dim d As string
        d = CurrentTable.current("编号")
        if CurrentTable.current.isnull("内容") then
            CurrentTable.current("比较命令") = nothing
            if Currenttable.position +1 <= Currenttable.count -1 then
                For  r2 As integer = Currenttable.position +1 to Currenttable.count -1
                    if CurrentTable(r2,"内容") <> "" then
                        CurrentTable(r2,"比较命令") = CurrentTable(r2,"比较命令").replace(CurrentTable(Currenttable.position,"连接") & " " & "[" & CurrentTable(Currenttable.position,"列") & "] "  & CurrentTable(Currenttable.position,"比较") & " '" & d & "'" ," ")
                    end if
                Next
            end if
        else
            CurrentTable(Currenttable.position ,"比较命令") = CurrentTable(Currenttable.position -1,"比较命令") & CurrentTable(Currenttable.position ,"连接") & " " & "[" & CurrentTable(Currenttable.position ,"列") & "] "  & CurrentTable(Currenttable.position ,"比较") & " '" & CurrentTable(Currenttable.position ,"内容") & "'"
            if Currenttable.position+1 <=  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
end if