主题：求助：如何获取最后一个记录中的结束页值！

 只能说你一点进步都没有，不要总问这些基础的问题好不好。

 1、上移下移的时候，全部重新生成；

 2、加入msgbox调试那里出问题。

1、

Dim vals() As String = { "同步录音录像受理登记表","同步录音录像工作说明","检察文书审批表","同步录音录像通知单","委托技术协助书"}

For i As Integer =0 To vals.Length - 1
Dim r As Row = Tables("同录台账.同录卷内目录").AddNew()
    r("标题") = vals(i)
    r("结束页") = r("起始页") + 1
Next

2、

If Tables("同录台账.同录卷内目录").Current IsNot Nothing
    Dim dr As DataRow
    dr = DataTables("同录卷内目录").Find("案卷编号 = '" & Tables("同录台账.同录卷内目录").Current("案卷编号")  & "'","结束页 Desc")
    If dr IsNot Nothing Then '如果找到的话
        MessageBox.Show("结束页:" & dr("结束页"))
    End If
End If

1、不行；

2、不理解你什么意思，赋值才会重新计算啊

上移一行参考代码

SystemReady = False
Dim r As Row = CurrentTable.Current
Dim r2 As Row = CurrentTable.Rows(CurrentTable.Current.Index-1)
Dim temp As Integer = r("起始页")
r("起始页") = r2("起始页")
r2("起始页") = temp
temp = r("结束页")
r("结束页") = r2("结束页")
r2("结束页") = temp
SystemReady = True

With CurrentTable
    .Current.Move(.Position - 1)
End With