主题：[求助]求教如何查询后台数据？

我做了一个分页，每页显示25条，查询时，只能查当前页的内容，查不了所有数据。

谢谢版主，还有一个问题，就是添加的时候，ID重复，ID会接着第一页的最后一个往后走，而不是跟着后台数据的ID走

就是 我加载了一页 25条记录，然后我要向这个表添加数据时，是接着25条记录后面的ID添加，而不是从后台数据的最后ID添加，这个要怎么改， 添加的代码就是 Tables("纸张设置").AddNew()

因为他在当前页面添加数据，所以ID就跟后台的ID重复了

    With DataTables("纸张设置")
        .LoadFilter = "" '一定要清除加载条件
        .LoadTop = 25
        .LoadPage = 0
        .Load()
    End With
    With DataTables("客户表")
        .LoadFilter = "" '一定要清除加载条件
        .LoadTop = 25
        .LoadPage = 0
        .Load()
    End With

 

 

Dim bh As String = "KH"  & Format(Date.Today,"yyMMdd") '取得客户编号的8位前缀
If e.DataRow("客户ID").StartsWith(bh) = False '如果客户编号的前8位不符
    Dim max As String
    Dim idx As Integer
    max = e.DataTable.Compute("Max(客户ID)","客户ID like '" & BH & "*'") '取得该天的最大客户编号
    If max > "" Then '如果存在最大客户编号
        idx = CInt(max.Substring(8,2)) + 1 '获得最大客户编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("客户ID") = bh &  Format(idx,"00")
End If

 

 

ID会重复。

编号不会变啊，一直是一个编号，要保存才会变