- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 关于窗口计时器处理抽奖的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63210)
-- 发布时间：2015/1/16 10:49:00
-- [求助] 关于窗口计时器处理抽奖的问题
最近重新做了下抽奖软件，用计时器
计时器代码是：
bhs = Rand.Next(1,dts.DataRows.Count)e.Form.Controls("Label1").Text = dts.DataRows(bhs)("姓名")
Vars("gonghao") = dts.DataRows(bhs)("工号")
但是由于需要做一个作弊功能，所以做一个停止按钮，在计时器停止命令发出后，要瞬间改写 e.Form.Controls("Label1").Text的值
所以问题来了
只要是有改写的情况（作弊），text值显示的时候 就会有一点点卡顿的感觉，不自然，有没有办法解决
按钮主要停止代码：
If e.Form.TimerEnabled = False Then
If i > 0 Then
xm.Text = dt.DataRows(0)("姓名")
Vars("gonghao") = dt.DataRows(0)("工号")
End If
-- 发布时间：2015/1/16 10:52:00
--
上个例子看看怎么个卡顿
-- 发布时间：2015/1/16 11:01:00
--
以下是引用Bin在2015-1-16 10:52:00的发言：
上个例子看看怎么个卡顿
上个例子看看怎么个卡顿
BIN大哥 如何单独传给你？
-- 发布时间：2015/1/16 11:03:00
--
测试例子传上来
-- 发布时间：2015/1/16 11:03:00
--
直接传论坛没问题. 数据可以随便放一些测试数据
-- 发布时间：2015/1/17 9:39:00
--
以下是引用有点甜在2015-1-16 11:03:00的发言：
测试例子传上来
测试例子传上来
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目10.rar |
不好意思昨天有事出去了
在这个测试例子中 ，代码也简洁了些所以感觉不是很明显
-- 发布时间：2015/1/17 9:56:00
--
我测试没有卡顿,应该是和我电脑配置比较高有关,你把计时器间隔改为20 看看.
-- 发布时间：2015/1/17 10:12:00
--
以下是引用Bin在2015-1-17 9:56:00的发言：
我测试没有卡顿,应该是和我电脑配置比较高有关,你把计时器间隔改为20 看看.
我测试没有卡顿,应该是和我电脑配置比较高有关,你把计时器间隔改为20 看看.
实际项目中我在 e.Form.TimerEnabled = not e.Form.TimerEnabled 这条命令前面有不少其他代码，按理说是不是不会影响到后面的代码？
测试项目中e.Form.TimerEnabled = not e.Form.TimerEnabled 前面代码很少，还是因为数据库用的是FT自带数据库的原因？而实际项目用的是单独的MDB原因？
-- 发布时间：2015/1/17 10:18:00
--
Dim cmd As new SQLCommand
cmd.CommandText = "select 工号,姓名 fr om {表A} where 工号 > \'\' and 姓名 > \'\' and 状态 = \'" & bm.Value & "\'"
Dim dt As DataTable = cmd.ExecuteReader
Dim i As Integer = dt.DataRows.Count
你这个查询有什么意思.浪费资源.数据量大当然慢
cmd.CommandText = "Select 姓名,工号 fr om {表A} where 工号 > \'\' and 姓名 > \'\'"
dts = cmd.ExecuteReader()
这个查询也是毫无意义
你只要获取行数的话.直接用Compute 或者SQLCompute 参考帮助
-- 发布时间：2015/1/17 10:27:00
--
以下是引用Bin在2015-1-17 10:18:00的发言：
Dim cmd As new SQLCommand
cmd.CommandText = "select 工号,姓名 fr om {表A} where 工号 > \'\' and 姓名 > \'\' and 状态 = \'" & bm.Value & "\'"
Dim dt As DataTable = cmd.ExecuteReader
Dim i As Integer = dt.DataRows.Count
你这个查询有什么意思.浪费资源.数据量大当然慢
cmd.CommandText = "Select 姓名,工号 fr om {表A} where 工号 > \'\' and 姓名 > \'\'"
dts = cmd.ExecuteReader()
这个查询也是毫无意义
你只要获取行数的话.直接用Compute 或者SQLCompute 参考帮助
第一个dt是查询有没有目前抽奖需要作弊中奖的用户名单
i 就是有几个
如果有那么 dt.datarows(0)(xxx) 直接赋值就可以了
第二个表是用来给全局变量dts赋值的，这个dts是计时器代码中需要使用的
另外 这些代码都在计时器停止命令前面，难道也会影响吗？