Foxtable(狐表) → 用户栏目 → 专家坐堂 → ”运行中窗口“，GIF动画不动


  共有5328人关注过本帖树形打印复制链接

主题：”运行中窗口“，GIF动画不动
帅哥哟，离线，有人找我吗？
htlk25
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		”运行中窗口“，GIF动画不动  发帖心情 Post By：2014/6/26 14:24:00 [显示全部帖子]

版主，您好！

我在加载子表数据的过程中做了一个“运行中窗口“，这个窗口插入的是GIF动画，
加载数据是，窗口是显示出来，但加载过程中动画除刚开始动半秒，后来动画在加载过程中根本不会动作，
有办法解决吗？

因为我是加载远程数据，所以过程不快！
 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 14:37:00 [显示全部帖子]

请问有办法使用多线程吗？不然这个过程太让用难受了，开发出来的软件用户以为死机了！谢

 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 14:46:00 [显示全部帖子]

Dim txt As String = Tables("电话扫雷窗口_table1").Current("展会简称")
Dim dr As DataRow = DataTables("原始名单").find("展会简称='" & txt & "'")
If dr Is Nothing Then
    Forms("运行进度条窗口").open
    DataTables("原始名单").AppendLoad("[展会简称] = '" & txt & "'")
End If
Forms("运行进度条窗口").close

我用的是 appendload, 该如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 14:59:00 [显示全部帖子]

唉呀，感觉要好多了！谢谢各位前辈！
追问一下，因为我的数据是远程的，每次保存也是同样的问题，极慢，卡死！有办法吗！！

谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 15:06:00 [显示全部帖子]

是的，进度真不显示了！
版柱帮我揭示一下好吗，谢！
 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 17:59:00 [显示全部帖子]

版主，能给我一点揭示吗，因为我必须要出现进度窗，如果没有进度窗，在子表数据还没加载完成时再点击其它的父表行，就会出现如下的揭示：
提示“列_Identify被约束为是唯一的，值2292已存在

 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 19:14:00 [显示全部帖子]

1、设置一个全局变量；


此主题相关图片如下：j{3wbp92ow2sn}j2{jc3y0.jpg
按此在新窗口浏览图片

 

2、你在表afterload事件加入代码，vars("变量") = True

      

我在子表“原始名单”的afterload事件中加了：vars("jdt") = True


 我在父表“展会信息”的Click事件里写了：
 Dim txt As String = Tables("展会信息").Current("展会简称")

Dim dr As DataRow = DataTables("原始名单").find("展会简称='" & txt & "'")

If dr Is Nothing Then

    Forms("运行进度条窗口").open

    DataTables("原始名单").AppendLoadAsync("[展会简称] = '" & txt & "'")

End If  

 

3、编写系统事件GlobalVariableChanged http://www.foxtable.com/help/topics/1497.htm

    我在系统事件GlobalVariableChanged里写了：

   Forms("运行进度条窗口") .Close

   vars("") = False




请问这样对吗，老师！

 

[此贴子已经被作者于2014-6-26 19:14:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 19:17:00 [显示全部帖子]

这样些进度条窗口出来然后一直不关，数据也没加载！

 回到顶部
帅哥哟，离线，有人找我吗？
htlk25
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：307 积分：2557 威望：0 精华：0 注册：2012/7/8 23:19:00 		  发帖心情 Post By：2014/6/26 19:23:00 [显示全部帖子]

换成 独立 窗口了，但这样加载会后，数据好像出来了就一秒，软件直接退出了！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询