- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关闭文件管理器的命令如何写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51506)
-- 发布时间：2014/5/27 21:27:00
-- [求助]关闭文件管理器的命令如何写？
‘附件列是多文件 列，上传文件时自动创建目录 ，当信息提示框提示 选择 “否”时，希望同时关闭文件管理器窗口
Dim Result As DialogResult
Result =MessageBox.show("目录不存在,是否创建!","提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
Else
Tables("文件管理").Cols("附件").CloseWindow（） ’这个关闭不了，CloseDropDown 也关闭不了！
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关闭文件管理器窗口.table |
[此贴子已经被作者于2014-5-27 21:27:48编辑过]
-- 发布时间：2014/5/27 21:34:00
--
代码
Dim Result As DialogResult
Result =MessageBox.show("目录不存在,是否创建!","提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
Else
Tables("表A").Cols("附件").CloseWindow() \'这个关闭不了,CloseDropDown 也关闭不了!
Sendkeys.Send("%({F4})")
e.Cancel = True
End If
-- 发布时间：2014/5/27 22:18:00
--
谢谢！