- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 获取TotalPages时提示：连接未关闭。连接的当前状态为打开 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28072)
-- 发布时间：2013/1/17 20:33:00
-- 获取TotalPages时提示：连接未关闭。连接的当前状态为打开
狐爸，如题，在加载分页过程中遇到此错误，获取不了TotalPages值，重启一下又没事了，但是经常遇到。
请问否有应对措施。
此主题相关图片如下：连接未关闭
-- 发布时间：2013/1/18 7:21:00
--
顶起来
-- 发布时间：2013/1/18 7:25:00
--
从来没有碰到过
-- 发布时间：2013/1/18 8:11:00
--
我看到论坛里面也有其他便宜碰到过
-- 发布时间：2013/1/18 8:27:00
--
又碰到了，我的语句有什么不正常吗？
With DataTables("Da_Customer")
.LoadTop = 30
.loadpage = 0
.Load()
e.Form.Controls("Label1").text = "第" & .LoadPage + 1 & "/" & .TotalPages & "页"
If .loadpage > 0 Then
e.Form.Controls("BtnFirst").Enabled = True
e.Form.Controls("Btnprevious").Enabled = True
Else
e.Form.Controls("BtnFirst").Enabled = False
e.Form.Controls("Btnprevious").Enabled = False
End If
If .TotalPages - 1 > .loadpage Then
e.Form.Controls("BtnNext").Enabled = True
e.Form.Controls("BtnLast").Enabled = True
Else
e.Form.Controls("BtnNext").Enabled = False
e.Form.Controls("BtnLast").Enabled = False
End If
End With
[此贴子已经被作者于2013-1-18 8:27:41编辑过]
-- 发布时间：2013/1/18 8:44:00
--
楼主，应该不是上面代码的问题。看看你是否还有什么 计划任务 之类的代码影响了。
上传个测试例子，或者联系客服QQ演示出错现象。
-- 发布时间：2013/1/18 9:01:00
--
林老师，看到您出现太好了，这个问题是偶发事件，不好给客服演示，我自己也会慢慢研究琢磨
关于您说的计划任务，我就设置一个，每隔20秒检查一下是否有被强退的标志以及更新一下当前用户的时间，代码如下，这个跟上面应该不存什么影响：
Dim cmd As New SQLCommand
cmd.C
Dim sdt As Date
cmd.CommandText = "Select GetDate()"
sdt = cmd.ExecuteScalar()
Dim dr As DataRow = DataTables("QX_user").Find("UserID = \'" & tmpUserID & "\'")
If dr IsNot Nothing Then
If dr("sys_Offline") = True
dr("sys_Offline") = False
dr.save()
tmprelogin = "2"
syscmd.project.Exit(False)
End If
dr("RecentLoginTime") = sdt.now
dr.save()
End If
[此贴子已经被作者于2013-1-18 9:01:50编辑过]
-- 发布时间：2013/1/18 9:33:00
--
特意测试一下这几方面的问题，发觉一切正常，不是这些加载方法的问题。
楼主，先好好研究一下吧。
-- 发布时间：2013/1/18 10:38:00
--
没问题，谢谢林老师