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

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

 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