以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于分页加载的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92850)
--  作者：blackzhu
--  发布时间：2016/11/15 10:16:00
--  关于分页加载的问题
问个问题
我在窗口利用SQL表控件fill 一个初始的视图
然后做分页
现在发现总页数是负数
而且分页不起作用
--  作者：有点蓝
--  发布时间：2016/11/15 10:33:00
--  
是不是分页依据列有问题

具体代码看看
--  作者：blackzhu
--  发布时间：2016/11/15 10:38:00
--  
   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


现在窗口执行一次,其他分页全部按照帮助,就是这个不起作用
[此贴子已经被作者于2016/11/15 10:38:54编辑过]
--  作者：blackzhu
--  发布时间：2016/11/15 10:41:00
--  
 我看了属性默认是按照主键为依据列的,我试试加个依据列
--  作者：blackzhu
--  发布时间：2016/11/15 10:45:00
--  
果然是的,是依据列的问题,搞定