| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于存档与提取文件的请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79969) |
| -- 作者：douglas738888 -- 发布时间：2016/1/13 10:56:00 -- 关于存档与提取文件的请教 老师，有这样一个问题进行请教 例：表A有一列名为“存招标文件”设置为多文件属性通过文件管理器把购买的招标文件（Word文件)存储在Attachments中名称为“招标文件”的文件夹中，其他人员从其他窗口要调阅文件夹中的某个招标文件怎样实现。就相当于我们使用电脑时左边窗口是目录树文件夹，点击我的电脑文件夹，右边面板区域显示文件夹内的全部文件标题，根据所选文件标题打开文件阅览。 这个问题，文件管理器好像不能实现；做目录树的话，如何实现选择的文件在Word中打开文件。 不知还有其他什么方法来实现如上问题。 谢谢！！！！ |
| -- 作者：Hyphen -- 发布时间：2016/1/13 11:50:00 -- 选取文件参考：http://www.foxtable.com/help/topics/0328.htm |
| -- 作者：douglas738888 -- 发布时间：2016/1/13 12:41:00 -- 老师，用以下代码无法把一些WORD文件显示出来，有的word文档类型是“microsoft word ",有的是”microsoft office word"，后缀分别是.doc和.docx 所用版本是2010OFFICE的，把*.doc，改成*.docx也不能显示
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Word文件|*.doc" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 MessageBox.Show("你选择的是：" & dlg.FileName,"提示") \'提示用户选择的文件 End If |
| -- 作者：Hyphen -- 发布时间：2016/1/13 14:10:00 -- dlg.Filter= "Word文件|*.doc;*.docx" \'设置筛选器 仔细看帮助的Filter的说明
|
| -- 作者：douglas738888 -- 发布时间：2016/1/13 16:29:00 -- 老师再帮我看看，下面代码是在窗口设置目录树后，想通过点击目录树中的DOC文件在WebBrowser中进行显示，目录树设置没有问题，但是无法在WebBrowser中显示所点击的文件。是否是黄色部分有问题，还是其他代码有问题？ 目录树是通过后台数据生成的。 For Each dir As String In FileSys.GetDirectories(ProjectPath & "Attachments\\公共文件\\招标文件") For Each File As String In FileSys.Getfiles(dir) Dim f As String =file Dim ext As String ext = f.SubString(f.LastIndexof(".") ) \'获得文件后缀 Select Case ext Case ".doc",".docx" Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") brw.Address = ProjectPath & "Attachments\\公共文件\\招标文件\\" & e.Node.Name & "\\" & e.Node.Text & ext End Select Next Next |
| -- 作者：Hyphen -- 发布时间：2016/1/13 16:40:00 -- msgbox(ProjectPath & "Attachments\\公共文件\\招标文件\\" & e.Node.Name & "\\" & e.Node.Text & ext)看路径对不对咯 |