Foxtable(狐表)用户栏目专家坐堂 → 关于二进制列的优劣,还清请版主给讲讲吧


  共有3676人关注过本帖平板打印复制链接

主题:关于二进制列的优劣,还清请版主给讲讲吧

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6848 积分:43334 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2014/9/22 14:53:00 [只看该作者]

If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim fl As String =  ProjectPath &  dr("_Identify") & ".*"
If dr.SQLLoadFile("附件",fl) Then '如果提取文件成功
    Dim Proc As New Process '打开文件
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

 

这个代码,打不开附件,是为什么?


 回到顶部
总数 18 1 2 下一页