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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于加载窗体的问题

共有2857人关注过本帖树形打印复制链接主题：关于加载窗体的问题

有点色

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

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

Post By：2017/6/2 14:30:00 [显示全部帖子]

用变量记录一下。如，打开之前，

vars("窗口1_状态") = "查找"

Forms("窗口1").Open

有点色

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

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

Post By：2017/6/2 16:11:00 [显示全部帖子]

你在什么时候打开窗口？在哪里写了open代码？

有点色

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

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

Post By：2017/6/2 17:15:00 [显示全部帖子]

If e.Col.Name="客户姓名" Then
e.Cancel= True

    vars("客户资料入库窗体_状态") = "查询"
    Forms("客户资料入库窗体").OpenTo("机具库存资料")
ElseIf e.Col.Name="机具条码" Then
    Forms("流量卡资料窗体").OpenTo("机具库存资料")

End If

正常打开的话，就这样写

vars("客户资料入库窗体_状态") = "正常"

Forms("客户资料入库窗体").OpenTo("机具库存资料")

你在afterLoad事件设置筛选代码？那就判断

If vars("客户资料入库窗体_状态") = "正常" Then

'代码

ElseIf vars("客户资料入库窗体_状态") = "查询" Then

'代码

End If

有点色

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

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

Post By：2017/6/2 18:11:00 [显示全部帖子]

认认真真看懂9楼。不会做，单独做一个例子发上来帮你写代码。

主题：关于加载窗体的问题