窗口2_Table1_DoubleClick
e.Cancel = True
Forms("窗口1").Show()
窗口1_Enter
Dim r As Table = Tables("表F")
Dim c1 As Row = Tables("表F").Current
Dim ct3 As WinForm.Control = e.Sender
Select Case ct3.BindingField
Case "表F.直接意见"
If c1("直接上级") = _UserName Then
ct3.ReadOnly = BooleanEnum.False '允许编辑
Else
ct3.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "表F.间接意见"
If c1("间接上级") = _UserName Then
ct3.ReadOnly = BooleanEnum.False '允许编辑
Else
ct3.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "表F.经办意见"
If c1("经办人") = _UserName Then
ct3.ReadOnly = BooleanEnum.False '允许编辑
Else
ct3.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
加好友 
发短信
Post By：2025/4/18 9:23:00 [显示全部帖子]
