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


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

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

帅哥哟,离线,有人找我吗?
peibaomin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
关于加载窗体的问题  发帖心情 Post By:2017/6/2 13:09:00 [显示全部帖子]

加载窗体时用什么方法能判断是用查找的方式打开的窗体还是正常加载窗体呢?因为正常加载窗体时数据时没有过滤过的全部数据。

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 15:12:00 [显示全部帖子]

有点色老师 不明白什么意思,能给一个详细的解决方法吗?

 


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 16:07:00 [显示全部帖子]

有点色老师

 

 

我是在“机具库存资料”表属性双击事件上写的

在“机具库存资料”表的字段="客户姓名" 双击即可按此值以查找的方式打开"客户资料入库窗体"或"流量卡资料窗体",这样是能实现。 可是再按正常的方式打开“客户资料入库窗体”或 "流量卡资料窗体"时,它还是以上一次查找过的数据显示,不知道怎么解决。有点色老师给一个详细代码吧。谢谢!!

我想实现只有在双击“机具库存资料”字段="客户姓名" 时打开的"客户资料入库窗体" 是带有查找功能的,其他只要打开"客户资料入库窗体"就是所有的数据,不是查找过的数据, 

 

 

[此贴子已经被作者于2017/6/2 16:44:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 16:43:00 [显示全部帖子]

有点色老师

 

If e.Col.Name="客户姓名" Then
e.Cancel= True
Forms("客户资料入库窗体").OpenTo("机具库存资料")
ElseIf e.Col.Name="机具条码" Then
Forms("流量卡资料窗体").OpenTo("机具库存资料")

End If

 

 

我是在“机具库存资料”表属性双击事件上写的

在“机具库存资料”表的字段="客户姓名" 双击即可按此值以查找的方式打开"客户资料入库窗体"或"流量卡资料窗体",这样是能实现。 可是再按正常的方式打开“客户资料入库窗体”或 "流量卡资料窗体"时,它还是以上一次查找过的数据显示,不知道怎么解决。有点色老师给一个详细代码吧。谢谢!!

我想实现只有在双击“机具库存资料”字段="客户姓名" 时打开的"客户资料入库窗体" 是带有查找功能的,其他只要打开"客户资料入库窗体"就是所有的数据,不是查找过的数据, 


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 17:24:00 [显示全部帖子]

有点色老师,在那个事件写呢?

客户资料入库窗体_状态 字段是自己定义的吗?

 

[此贴子已经被作者于2017/6/2 17:24:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 20:01: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

 

 

 

有点色老师 不好意思我是初学者 给个具体代码吧


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/6/2 20:41:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看

 回到顶部