- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 4.18的appendload有问题，暂时不要升级 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49380)
-- 发布时间：2014/4/17 9:24:00
-- 4.18的appendload有问题，暂时不要升级
很抱歉，昨晚干得急，appendload有个大疏忽，今天重做，晚上再上传。
如果还发现其他问题，请大家及时反馈。
-- 发布时间：2014/4/17 9:27:00
--
异步加载，伤筋动骨啊
-- 发布时间：2014/4/17 9:33:00
--
这是一个大亮点，只要能成功，反复几次也值得。
-- 发布时间：2014/4/17 9:35:00
--
呵呵，成功是必须的，成功的路上有反复也是正常的，异步加载牵涉的地方太多了。
-- 发布时间：2014/4/17 11:01:00
--
大家都测试下 异步是有些问题 希望早些解决.
-- 发布时间：2014/4/17 11:06:00
--
为狐爸的辛苦努力加油
-- 发布时间：2014/4/17 11:20:00
--
加油啊！
-- 发布时间：2014/4/17 11:22:00
--
干巴爹！
-- 发布时间：2014/4/17 12:15:00
--
老大，慢慢 来，别着急，注意身体！
-- 发布时间：2014/4/17 13:06:00
--
在这之前我已使用了线程加载了，不会卡住程序。
以下内容为程序代码:
1 Dim 查询 As String = Args(0)
2 If DataTables.Contains(CurrentTableName) Then
3 Dim frm As WinForm.Form =Forms(CurrentTableName.split("_")(0))
4 If frm IsNot Nothing Then
5 With DataTables(CurrentTableName)
6 .LoadFilter = Tables(CurrentTableName).Grid.Tag(6) & 查询
7 \'Output.Show(.LoadFilter & ":" & CurrentTableName & ":" & Tables(CurrentTableName).Grid.Tag(2) )
8 frm.ResumeRedraw
9 If Forms("数据加载中").Opened = False Then
10 Forms("数据加载中").show
11 End If
12 frm.StopRedraw
13 Dim t1 As New System.Threading.Thread(AddressOf 刷新表数据)
14 t1.Start()
15 frm.ResumeRedraw
16 End With
17 End If
18 End If
1 Dim 查询 As String = Args(0)
2 If DataTables.Contains(CurrentTableName) Then
3 Dim frm As WinForm.Form =Forms(CurrentTableName.split("_")(0))
4 If frm IsNot Nothing Then
5 With DataTables(CurrentTableName)
6 .LoadFilter = Tables(CurrentTableName).Grid.Tag(6) & 查询
7 \'Output.Show(.LoadFilter & ":" & CurrentTableName & ":" & Tables(CurrentTableName).Grid.Tag(2) )
8 frm.ResumeRedraw
9 If Forms("数据加载中").Opened = False Then
10 Forms("数据加载中").show
11 End If
12 frm.StopRedraw
13 Dim t1 As New System.Threading.Thread(AddressOf 刷新表数据)
14 t1.Start()
15 frm.ResumeRedraw
16 End With
17 End If
18 End If
[此贴子已经被作者于2014-4-17 13:11:48编辑过]