主题：关于分页加载的问题

   With DataTables(e.Form.Name & "_Table1")
            .LoadFilter = "" '一定要清除加载条件
            .LoadTop = 100
            .LoadPage = 0
            .Load()
            MessageBox.Show(1)
            Dim cmd As New SQLCommand
            cmd.C
            Dim n As Integer
            cmd.CommandText = "sel      ect Count(" & CountOrder & ") from {" & TableName & "}"
            n = cmd.ExecuteScalar
            For Each sit As WinForm.StripItem In e.Form.Strips("工具栏1").Items
                Select Case sit.Name
                    Case "总计多少条"
                        sit.Text = "历史数据目前共有" & n & "条记录,每一页100条"
                    Case "目前多少条"
                        sit.Text = "第" & "1" & "页/共" & .TotalPages & "页"
                End Select
            Next
        End With
        Tables(e.Form.Name & "_Table1").ExtendLastCol = True


现在窗口执行一次,其他分页全部按照帮助,就是这个不起作用

 我看了属性默认是按照主键为依据列的,我试试加个依据列

果然是的,是依据列的问题,搞定