主题：[求助]二进制

老师，下面代码怎样修改成打开图片，望老师指点。

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

    Return

End If

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

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

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

    Dim Proc As New Process '打开文件

    Proc.File = fl

    Proc.Start()

Else

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

End If

直接修改表名、列名，即可。

老师，打开的不是图片，而是文档。

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

 

改成

 

Dim fl As String =  ProjectPath &  dr("_Identify") & ".jpg"

谢谢老师

老师，二进制增加或插入的图片怎样另存为。

参考；http://www.foxtable.com/webhelp/scr/0329.htm

老师，我是想在添加和插入时自动另存为（设置路径自动另存为）

 

那直接复制即可，参考

 

http://www.foxtable.com/webhelp/scr/0342.htm

 

老师，报错，.NET Framework 版本：2.0.50727.3655