[求助] 关于窗口计时器处理抽奖的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关于窗口计时器处理抽奖的问题

共有3686人关注过本帖树形打印复制链接主题：[求助] 关于窗口计时器处理抽奖的问题

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

[求助] 关于窗口计时器处理抽奖的问题 发帖心情

Post By：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

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/16 11:01:00 [显示全部帖子]

以下是引用Bin在2015-1-16 10:52:00的发言：
上个例子看看怎么个卡顿

BIN大哥如何单独传给你？

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 9:39:00 [显示全部帖子]

以下是引用有点甜在2015-1-16 11:03:00的发言：
测试例子传上来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.rar

不好意思昨天有事出去了

在这个测试例子中，代码也简洁了些所以感觉不是很明显

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 10:12:00 [显示全部帖子]

以下是引用Bin在2015-1-17 9:56:00的发言：
我测试没有卡顿,应该是和我电脑配置比较高有关,你把计时器间隔改为20 看看.

实际项目中我在 e.Form.TimerEnabled = not e.Form.TimerEnabled 这条命令前面有不少其他代码，按理说是不是不会影响到后面的代码？

测试项目中e.Form.TimerEnabled = not e.Form.TimerEnabled 前面代码很少，还是因为数据库用的是FT自带数据库的原因？而实际项目用的是单独的MDB原因？

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：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 参考帮助

http://www.foxtable.com/help/topics/0393.htm

http://www.foxtable.com/help/topics/2897.htm

第一个dt是查询有没有目前抽奖需要作弊中奖的用户名单

i 就是有几个

如果有那么 dt.datarows(0)(xxx) 直接赋值就可以了

第二个表是用来给全局变量dts赋值的，这个dts是计时器代码中需要使用的

另外这些代码都在计时器停止命令前面，难道也会影响吗？

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 10:29:00 [显示全部帖子]

如果收影响不知道 Application.DoEvents() 这个能否用上

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 10:38:00 [显示全部帖子]

以下是引用Bin在2015-1-17 10:33:00的发言：
当然会影响效率.你不需要这么做.你表不是已经加载进来的了吗?

我的表不加载，实际项目中每次dts都会更新排除掉那些已中奖的

所以如果上面的代码会影响下面的有没有办法等上面的执行完了再走下面的呢？

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 10:39:00 [显示全部帖子]

以下是引用Bin在2015-1-17 10:33:00的发言：
当然会影响效率.你不需要这么做.你表不是已经加载进来的了吗?

给个邮箱呢我发给你看看

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 11:48:00 [显示全部帖子]

以下是引用Bin在2015-1-17 10:40:00的发言：
在开始运行前先把数据都加载进来再运行,这样停止的时候不要重新加载数据.就不会卡顿了

BIN总，我发现在执行停止之后

If e.Form.TimerEnabled = False Then
    If i > 0 Then
        xm.Text = dt.DataRows(0)("姓名")
    End If

' 如果在这里添加SQL命令会导致蓝色处代码处卡顿，有没有办法让蓝色代码处执行完毕后再执行红色处代码呢？

End If

jiskin

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

加好友

发短信

等级：三尾狐帖子：713 积分：5196 威望：0 精华：0 注册：2012/4/13 13:10:00

Post By：2015/1/17 11:59:00 [显示全部帖子]

以下是引用Bin在2015-1-17 11:52:00的发言：
看15楼

只要是在同一个按钮中不管放哪个位置都会收到影响，也就是说如果要提前加载就只能放到其他事件中了！

因为操作过程中只需要按这个按钮所以如何提前加载是个问题了

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

总数 12 1 2 下一页

主题：[求助] 关于窗口计时器处理抽奖的问题