分页加载请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页加载请教

共有3033人关注过本帖树形打印复制链接主题：分页加载请教

花开的声音

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/28 16:52:00 [只看该作者]

嗯嗯，可以了。但转换成控件的值后,同样的代码在一个事件(NumericComboBox1的ValueChanged事件)中运行正常,在另一个事件(如下一页按钮的单击事件)中却出错.
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20160628164519.png

Dim nc As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")

'Dim d As Double

'Double.TryParse(nc.Value, d) '将变量s的内容转换为数值,并存放在变量d中

vars("页数") += 1

If vars("页数") <= 1 Then

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]")

Else

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT In (Select TOP " & (vars("页数")-1)* " & nc.Value & " & " [_Identify] F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")

End If

Tables("基层法律服务机构信息表").Sort="序号"

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/28 17:06:00 [只看该作者]

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT In (Select TOP " & (vars("页数")-1)*nc.Value & " [_Identify] F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")

花开的声音

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/28 20:55:00 [只看该作者]

是可以了。但还是不很明白：一是为什么第二个值不用“ & &” 来取值；二是，同样的代码在NumericComboBox1的ValueChanged事件中运行正常,但在这个“下一页”按钮事件中却运行错误？

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/28 21:15:00 [只看该作者]

报什么错？贴出你写的代码。

花开的声音

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/28 21:17:00 [只看该作者]

就是一楼截图所示错误，想搞清楚什么原因。

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/28 21:24:00 [只看该作者]

就是简单的合并字符串而已，先计算得到值，然后放进sql语句里面。很简单的操作啊。

花开的声音

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/29 9:25:00 [只看该作者]

红袍老师,帮看下这代码什么问题,提示from 语法错误.

flt 为筛选条件.

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} where" & flt & "ORDER BY 序号,[_Identify]")

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT IN (SELECT TOP " & (vars("页数")-1)*nc.Value & " [_Identify] F ROM {基层法律服务机构信息表} where" & flt & "ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")

大红袍

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/29 9:27:00 [只看该作者]

msgbox(flt)

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} where " & flt & " ORDER BY 序号,[_Identify]")

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT IN (SELECT TOP " & (vars("页数")-1)*nc.Value & " [_Identify] F ROM {基层法律服务机构信息表} where " & flt & " ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")

花开的声音

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/29 9:39:00 [只看该作者]

好了,原来是where后面的那个引号没有空格

花开的声音

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00

Post By：2016/6/29 13:43:00 [只看该作者]

红袍老师,用sqlload 加载了数据后,如何统计出一共加载了多少条记录,用哪个函数.想用来计算出分页加载中总共加载了多少页,当前页面处于哪个页面,以便防止无限止地点按"下一页"或"上一页".

[此贴子已经被作者于2016/6/29 13:50:10编辑过]

下一主题 >> << 上一主题

总数 25 上一页 1 2 3 下一页

主题：分页加载请教