Tables("生产进度表").Current.DataRow.Load()
If User.Group = "经理" OrElse  User.Group = "主管"  OrElse  User.Group = "跟单" Then
    Dim proc As new  Process
    If Tables("生产进度表").current.IsNull("制单") Then
        MessageBox.Show("此款无生产制单,请刷新后再试!")
    Else
        proc.File = DataTables("生产进度表").DataCols("制单").DefaultFolder & "/" & Tables("生产进度表").current("制单")
        proc.Start
    End If
Else
    MessageBox.show("你无权执行此项操作!")
End If

以上代码打开的文件是excel文件，我想把“MessageBox.show("你无权执行此项操作!")”这个代码改为用pdf打开excel文件，请问该怎样写代码。谢谢

 设置成只读打开即可。如

Dim f as string = "d:\\test.xls"
Dim finfo As New FileInfo(f)
finfo.ReadOnly = True
Dim proc As new Process
proc.file = f
proc.Start

 不能用pdf打开excel文件，除非你把excel保存为pdf

Dim Book As New XLS.Book(ProjectPath & "Reports\\出库单.xls")
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()

谢谢