主题：二进制附件怎么直接另存为？

SQLLoadFile(Field,FileName)

Field:     字符型，二进制列的列名
FileName:  字符型，文件名，提取的内容将保存在此文件中。

如果成功提取文件，返回True，否则返回False。

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

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "word文件|*.doc" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

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

                Return

     end if

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

    dr.SQLLoadFile("附件",dlg.FileName)
End If