Foxtable(狐表)用户栏目专家坐堂 → 请教:表事件中弹出的对话框能否捕获?


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

主题:请教:表事件中弹出的对话框能否捕获?

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


加好友 发短信
等级:六尾狐 帖子:1421 积分:11294 威望:0 精华:0 注册:2008/9/1 22:20:00
请教:表事件中弹出的对话框能否捕获?  发帖心情 Post By:2014/5/27 23:32:00 [只看该作者]

从“文件上传”窗口的文件管理器增加文件时,会自动重命名文件,并弹出对话框提示成功,但由于对话框是从表属性里的代码所触发,窗口如何知道用户是否点击了对话框的“确定”按钮,从而自动关闭呢(e.form.close)?


后将表属性BeforeAttachFile代码如下:

Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof("."))
Dim dr As DataRow = e.DataRow
If dr.IsNull("板块名称")=False AndAlso dr.IsNull("年月")=False Then
    e.FileName = dr("年月") & "-" & dr("板块名称") & "-" & _UserName & ext
    Dim Result As DialogResult
    Result = MessageBox.Show("文件  " & e.FileName &"  上传完毕!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    If Result = DialogResult.OK Then
            Forms("文件上传").Close
    End If
End If

还是运行出错,求指教!

[此贴子已经被作者于2014-5-28 13:21:11编辑过]

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


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

BeforeAttachFile  是添加文件之前, 这是并未开始上传文件,何来的上传成功呢.  这时关闭上传窗口肯定会报错的.

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/28 9:07:00 [只看该作者]

 不确定你的意思,把例子传上来,可能有办法变通

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


加好友 发短信
等级:六尾狐 帖子:1421 积分:11294 威望:0 精华:0 注册:2008/9/1 22:20:00
  发帖心情 Post By:2014/5/28 13:19:00 [只看该作者]

多谢二楼提醒,问题已经解决。
在窗口设置一个定时器,当检测到文件管理器已经选择了文件后,也就是SelectedItem属性不为空时,关闭窗口即可。

 回到顶部