Foxtable(狐表)用户栏目专家坐堂 → 提示窗口mesagebox问题!


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

主题:提示窗口mesagebox问题!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
提示窗口mesagebox问题!  发帖心情 Post By:2009/3/13 13:07:00 [只看该作者]

有个自做的提示窗口mesagebox,为何按enter正常关闭该提示窗口,并进入下个单元格,而用鼠标点击确定后,会跳开狐表(即狐表界面不在最前面,显示是后面的东东,如文本等其他在后面的程序)? 
大家有碰到过此问题的吗?


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/3/13 13:21:00 [只看该作者]

这个问题好象是操作系统的问题,我以前经常碰到(非狐表中),有时打开一个东东总是在后面。

你试试在ie中(在打开的网页中)按ctrl+a选中整个网页(执行一次这样的操作即可),然后再试试你上面的操作,看能不能解决问题?


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/3/13 13:38:00 [只看该作者]

哈哈 还是不行啊~  ,奇怪的是:有些提示可以,另一两个提示鼠标点击就是不行(总是跳开狐表),可能是和代码有关,我得慢慢学呀。 谢谢,czy版主!~


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


加好友 发短信
等级:贵宾 帖子:80 积分:788 威望:0 精华:0 注册:2008/9/1 11:23:00
  发帖心情 Post By:2009/3/13 13:58:00 [只看该作者]

窗口类型是  “模式” 么

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/3/13 14:06:00 [只看该作者]

以下是引用yuansq在2009-3-13 13:58:00的发言:
窗口类型是  “模式” 么

 Messagebox.Show("请 检查 项目是否正确!", "提示",MessageBoxButtons.OK)


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


加好友 发短信
等级:贵宾 帖子:80 积分:788 威望:0 精华:0 注册:2008/9/1 11:23:00
  发帖心情 Post By:2009/3/13 14:09:00 [只看该作者]

误会了 呵呵 我以为你是自己做了一个窗口代替系统的messagebox呢

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/3/13 14:28:00 [只看该作者]

以下是引用yuansq在2009-3-13 14:09:00的发言:
误会了 呵呵 我以为你是自己做了一个窗口代替系统的messagebox呢

 Messagebox.Show("请 检查 项目是否正确!", "提示",MessageBoxButtons.OK)
是我没有给全,后面跟着我设计的窗口:
Forms("项目").Show()    可能里面代码有问题。
1。textchanged:e.Sender.WriteValue()
2。click事件代码:

If  Forms("项目").Controls("combobox1").text is nothing then
    e.Form.Controls("combobox1").Value  = nothing
end if

3。leave事件代码:
If Tables("表A").Current.isnull("项目")  orelse Forms("项目").Controls("combobox1").text is nothing then
           Messagebox.Show("请选择项目!", "提示",MessageBoxButtons.OK)
           e.Form.Controls("ComboBox1").Select() 
End If



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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/3/13 14:36:00 [只看该作者]

问题找到: 在关闭按钮的click事件中:
If Tables("表A").Current.isnull("项目")  then  【(问题可能在这里: 原来还有个多余的条件orelse Tables("表A").Current("项目") = "请选择..."  )还有:Tables("表A").Current.isnull("项目")  用 Tables("表A").Currentl("项目") is nothing 来表示的,最近好像提倡用:isnull 】
             
            Forms("项目").Close()
    end if 

但是,又反过来了:按enter键后 跳出狐表了,用鼠标又不会跳出???  怪~


帮看看这两层楼代码的代码,有没有问题???
[此贴子已经被作者于2009-3-13 23:10:17编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/13 14:42:00 [只看该作者]

这个找盖茨算账图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/3/13 15:05:00 [只看该作者]

以下是引用狐狸爸爸在2009-3-13 14:42:00的发言:
这个找盖茨算账图片点击可在新窗口打开查看

不是的,好像textbox控件是的不会,而combobox(绑定到列)就有可能会? 是不是我的value和text的性质没搞清楚呢?反正我试过各种情况,总是不满意啊~  
总之:我要慢慢检查以前编过的所有代码了。谢谢啊~


 回到顶部