主题：[求助]如何实现服务器端存放数据库和扫描文件

FileSys.CopyFile(e.FullPath, "C:\Documents and Settings\All Users\Documents\处理签扫描\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)

改成

FileSys.CopyFile(e.FullPath, "\\局域网ip\data\处理签扫描中\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)

 看详细消息，是哪里代码有问题，贴出对应代码。

 在相应的事件里面，加入msgbox，看哪里错。

 http://www.foxtable.com/help/topics/1485.htm

加入msgbox，确认一下，是具体那句代码之前出错。

 是不是重名了啊，弹出mgbox(e.FullPath)看看。

 如果出错，就是这句代码的问题了，自己看看红色路径的文件，是不是已经被占用了啊

填入数据后马上保存；新增图片的时候，先load最新的数据，再取index，不然index有可能重复。

Dim fdr As DataRow =  CurrentTable.DataTable.SQLFind("_Identify = " &  CurrentTable.Current("_Identify"))
Dim Index As String
If fdr Is Nothing Then
    index = CurrentTable.Current("收文编号") & "_" & CurrentTable.Current("处理签扫描").split(vbcrlf).length
    CurrentTable.Current("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
    CurrentTable.Current.Save
Else
    index = CurrentTable.Current("收文编号") & "_" & fdr("处理签扫描").split(vbcrlf).length
    fdr("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
    fdr.Save
    fdr.Load
End If

FileSys.CopyFile(e.FullPath, "C:\Documents and Settings\All Users\Documents\data\处理签扫描\" & index & ".jpg",True)

把这一名字，换成你表的主键列，即可。