- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 加载表等待提示代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47370)
-- 发布时间：2014/3/9 10:13:00
-- 加载表等待提示代码
动态加载表时有一个等待过程，（加载的表较多或数据量大时等待时间较长）在这过程中需要提示等待。加载表提示的代码怎么写？
-- 发布时间：2014/3/9 10:27:00
--
自己做个弹出窗口提示：正在加载数据.....请稍候。
或者在状态栏提示，或者开个标签提示。
-- 发布时间：2014/3/9 12:17:00
--
还是麻烦给个代码吧
-- 发布时间：2014/3/9 19:50:00
--
谁能提供项目属性中“加载提示：”的代码，谢谢。
此主题相关图片如下：snap1113.jpg
-- 发布时间：2014/3/9 20:13:00
--
For Each s As String In "产品|客户|订单".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables.Load(s)
e.Form.Controls("Label1").Text = ""
End If
Next
-- 发布时间：2014/3/9 20:45:00
--
以下是引用lsy在2014-3-9 20:13:00的发言：
For Each s As String In "产品|客户|订单".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables.Load(s)
e.Form.Controls("Label1").Text = ""
End If
Next
For Each s As String In "产品|客户|订单".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables.Load(s)
e.Form.Controls("Label1").Text = ""
End If
Next
谢了。
-- 发布时间：2014/3/10 21:34:00
--
还有点问题，上面代码要手动关闭窗口，我在代码后加了Forms("窗口1").Close()想加载表后自动关闭，但加了后窗口根本就不出现
-- 发布时间：2014/3/11 8:08:00
--
For Each s As String In "产品|客户|订单".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables.Load(s)
e.Form.Controls("Label1").Text = ""
End If
Next
e.Form.Close()
测试可行。
-- 发布时间：2014/3/11 8:42:00
--
以下是引用lsy在2014-3-11 8:08:00的发言：
For Each s As String In "产品|客户|订单".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
DataTables.Load(s)
e.Form.Controls("Label1").Text = ""
End If
Next
e.Form.Close()
测试可行。
还是没有出现窗口，我是在AfterLoad中设置代码的
-- 发布时间：2014/3/11 8:47:00
--
你的窗口类型是否对? 模式和独立窗口才可以哦