[求助]多文件管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在多文件管理中，选择一个Word文件并在窗口中的Webbrowser中打开，打开按钮代码：

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")

For Each p As System.Diagnostics.Process In ps

p.kill

If Tables("员工.附件").Current Is Nothing Then

Return

End If

Dim dr As DataRow = Tables("员工.附件").Current.DataRow

Dim fl As String = ProjectPath & dr("文件名")

'messagebox.show(fl)

'messagebox.show(CRCCheckFile(fl))

'messagebox.show(dr.SQLGetValue("CRC值"))

If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then '如果本地存在同名文件且CRC校验值相同

Dim tm As String = ProjectPath & dr("_Identify") & ".doc"

'messagebox.show(1)

If dr.SQLLoadFile("附件",tm) Then '如果提取文件成功

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

'Dim fl As String = ProjectPath & "Attachments\方案申请.doc"

Dim wrt As New WordReport(Tables("活动申请"),tm,fl)

wrt.Build()

wrt.Quit()

wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码

wbr.AddRess = fl

axWebBrowser = Nothing

Do Until axWebBrowser IsNot Nothing

Application.DoEvents

Loop

Dim Doc As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)

Dim app As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, Doc, Nothing)

doc.Protect (Password:="", NoReset:=False, Type:= _

MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)

End If

Else '否则从数据库提取文件

If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败

Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

End If

第一次打开时，CRCCheckFile(fl) = dr.SQLGetValue("CRC值") =0xd368ac79

再重复打开时，dr.SQLGetValue("CRC值") =0xd368ac79，但CRCCheckFile(fl) =0x132303f4；请问文件fl的CRC的值为什么变了呢？（再打开时，两个值又变成相同的）

我只是将文件在Webbrowser中打开，并没有做什么修改，为什么值会改变呢？这个终止进程的代码有关系吗？

甜姐，我在插入图片以后将本地的文件上传到后台，会报如下错误：
图片点击可在新窗口打开查看

此主题相关图片如下：222.png

代码是：'终止Word进程

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")

For Each p As System.Diagnostics.Process In ps

p.kill

'''往本地文件插入图片

Dim dr As DataRow = Tables("活动申请.wd").Current.DataRow

Dim app As New MSWord.Application

try

Dim fileName = ProjectPath & dr("文件名")

app.Documents.Open(fileName)

app.Documents(fileName).Range(Start:=30, End:=40).InlineShapes.AddPicture(FileName:= _

"D:\123.jpg" _

, LinkToFile:=False, SaveWithDocument:=True)

app.Documents.save

'messagebox.show("您已成功插入图片!!")

catch ex As exception

msgbox(ex.message)

finally

'app.Quit

End try

'''覆盖

If Tables("活动申请.wd").Current Is Nothing Then

Return

End If

If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件

dr.Save()

End If

Dim tm As String = ProjectPath & dr("文件名")

If dr.SQLInsertFile("附件",tm) Then '如果插入文件成功

messagebox.show("您已覆盖成功!!")

Else

messagebox.show("覆盖失败!!")

End If

请问那地方有问题呢？

改成这样也不行啊：Dim fileName = ProjectPath & "Attachments\方案申请.doc"

那这个路径应该怎么设置？

我在这个位置随便加一个Message就会正常，如果什么Message都不加就会报上面的错误，很奇怪啊

Dim tm As String = ProjectPath & "Attachments\方案申请.doc"

messagebox.show(1)

If dr.SQLInsertFile("文件",tm) Then '如果插入文件成功

[此贴子已经被作者于2014-10-15 9:24:38编辑过]

这个Message有关系吗？

主题：[求助]多文件管理