参考
http://www.foxtable.com/webhelp/scr/2470.htm
Select Case e.Col.Name
Case "承包资质" '对多文件类型才需要这样
e.Cancel = True
e.Col.OpenWindow()
Dim fm As WinForm.PictureViewer = e.Col.PictureViewer
If user.Type <> UserTypeEnum.Developer And user.Type <> UserTypeEnum.Administrator Then
fm.ManagerCommand.enabled = False
Else
fm.ManagerCommand.enabled = True
End If
End Select