窗口不加载数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口不加载数据

共有1676人关注过本帖树形打印复制链接主题：窗口不加载数据

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 9:24:00 [显示全部帖子]

这段代码，要写到模式窗口的afterload事件

With DataTables("女简历_Tablenvszl")

.LoadTop = 4

.LoadPage = 0

'.LoadOrder = "注册日期 Desc"

.LoadFilter = "[会员编号] = " & PD03

.Load()

End With

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 9:25:00 [显示全部帖子]

如果需要参数传递，就这样写

Dim PD03 As String = Tables("男生报名页_Tablebmnvsb").Current("女_编号")

vars("pd03") = pd03

forms("女简历").open()

AfterLoad事件

With DataTables("女简历_Tablenvszl")

.LoadTop = 4

.LoadPage = 0

'.LoadOrder = "注册日期 Desc"

.LoadFilter = "[会员编号] = " & vars("PD03")

.Load()

End With

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 9:51:00 [显示全部帖子]

你左边的表示什么类型的table？如何绑定的？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 10:07:00 [显示全部帖子]

不是写到表格的afterLoad事件，你要写到窗口的AfterLoad事件。

With DataTables("女简历_Tablenvszl")
    .LoadTop = 4
    .LoadPage = 0
    '.LoadOrder = "注册日期 Desc"
    .LoadFilter = "[会员编号] = '" & nvsbh & "'"
    .Load()
End With

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 10:31:00 [显示全部帖子]

我测试没问题。

报什么错？截图说明。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 10:38:00 [显示全部帖子]

上传你做好的项目，说明要如何操作报错。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 10:49:00 [显示全部帖子]

测试没问题，请说明测试步骤。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/27 11:47:00 [显示全部帖子]

这个算是小bug，你加载的数据，需要延迟一下。

删掉afterload对应的代码，把下面代码写到timertick事件

e.Form.TimerEnabled = False
With DataTables("女简历_Tablenvszl")
    .LoadTop = 4
    .LoadPage = 0
    '.LoadOrder = "注册日期 Desc"
    .LoadFilter = "[会员编号] = '" & nvsbh & "'"      '"[会员编号] = " & nvsbh
    .Load()
End With

http://www.foxtable.com/webhelp/scr/1301.htm

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

主题：窗口不加载数据