谢谢有点甜老师 添加如下代码进行解决
添加如下代码:(问题解决)
Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("资源附件").Find("附件名称='" & lbx.SelectedItem & "' and 资源编码='" & Tables("资源主表").Current("资源编码") & "'")
Dim fl As String = ProjectPath & "附件\" & lbx.SelectedItem
Dim fj As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If dr.SQLLoadFile("附件内容",fl) Then '如果提取文件成功
fj.Address = fl
End If
新问题出现
当附件是WORD文件的时候会提示一个弹出对话框 询问是打开还是保存 当点打开后 再在网页浏览器中显示
感觉十分不便
求纠正为不提示是否保存还是打开 而是 直接显示
[此贴子已经被作者于2014-11-17 23:38:01编辑过]