---------------------------
错误
---------------------------
编译错误:语法错误。
错误代码：For Each w As Integer = 1 To 4
---------------------------
确定
---------------------------
代码如下
If User.IsRole("编辑") Then
Else
\'For w As Integer = 1 To 4
For Each w As Integer = 1 To 4
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer" & w)
pv.AddCommand.Visible = True \' :增加
pv.DeleteCommand .Visible = True \':删除
pv.ClearCommand.Visible = False \':清除
pv.OpenCommand.Visible = False \':打开
pv.FullViewCommand.Visible = True \':全屏
pv.ManagerCommand.Visible = False \' :管理
pv.SaveAsCommand.Visible = True \' :另存
pv.StretchCommand.Visible = False \' :缩放
pv.UpdateCommand.Visible = True \':更新
pv.ConnectCommand.Visible = False \':重连
Next
End If