Foxtable(狐表)用户栏目专家坐堂 → 打开窗口的代码不执行


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

主题:打开窗口的代码不执行

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


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
打开窗口的代码不执行  发帖心情 Post By:2013/9/2 11:49:00 [只看该作者]

我在窗口的全局事件Click中设置如下代码:

 

If e.sender.Parent Is e.Form.Controls("GroupBox3") Then
    e.sender.Select
    Forms("洗涤标志").Open()
End If

 

结果,控件能够被选定,但是窗口却不能打开,请问这是怎么回事?

[此贴子已经被作者于2013-9-2 12:00:05编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/2 11:50:00 [只看该作者]

上个例子看看,不应该会这样.

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


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
  发帖心情 Post By:2013/9/2 12:06:00 [只看该作者]

用的外部数据源,外部数据怎么发,能指教一下吗?


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/2 12:06:00 [只看该作者]

没必要整个项目丢上来,做个简单例子即可. 使用内部数据源.



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


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
  发帖心情 Post By:2013/9/2 12:10:00 [只看该作者]

数据源文件夹和洗涤标志文件夹和项目文件处在同一个目录中
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:诺诗兰管理系统.foxdb

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据源.zip

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:洗涤标志.zip

[此贴子已经被作者于2013-9-2 13:47:42编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/9/2 12:16:00 [只看该作者]

If e.sender.Parent.name = "GroupBox3" Then
    Forms("洗涤标志").Open()
End If

 

1、因为是控件Click事件,所以没必要Select
2、因为是多个分组框,所以只能判断名称,判断类型应该这样:

 

If e.sender.Parent Is WinForm.GroupBox Then


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/2 12:19:00 [只看该作者]

你改为这样判断吧 就没问题了 If e.sender.Parent.name = e.Form.Controls("GroupBox3").name Then

 回到顶部
帅哥哟,离线,有人找我吗?
东坡一剑
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
  发帖心情 Post By:2013/9/2 13:54:00 [只看该作者]

按Bin的方法立即就成功了,但是不知其所以然,能不能帮人帮到底,讲一讲为什么,或者推荐一个学习材料?

[此贴子已经被作者于2013-9-2 14:18:03编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/9/2 14:02:00 [只看该作者]

看看6楼老程说得吧.

 回到顶部
帅哥哟,离线,有人找我吗?
东坡一剑
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:2478 威望:0 精华:0 注册:2013/1/13 23:43:00
  发帖心情 Post By:2013/9/2 14:21:00 [只看该作者]

看了老程的,有点明白了。

谢谢大家哦!


 回到顶部