Dim cname As String = e.Table.cols(e.Table.colsel).name
Dim TableName As String = e.Table.name
'msgbox(TableName)
If cname = "已接收文件" Then
Dim dr As DataRow = Tables("文件收发管理表").Current.DataRow
Dim fl As String = ProjectPath & dr("FileName")
If e.Control = True AndAlso e.KeyCode = Keys.V Then '按下ctrl+V #这行屏蔽就不会报错
If dr.SQLLoadFile("FileUpload", fl) Then '如果提取文件成功
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()
Else
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If '如果 user.group="管理员" 结束
'msgbox(2)
加好友 
发短信
Post By：2024/11/11 10:01:00 [显示全部帖子]
