我在窗口AfterLoad事件设定了编辑权限:
'只有开发者能勾选
If User.Name <> "开发者" Then
e.Form.Controls("CheckBox1").Enabled = False
End If
'已勾选的禁止编辑
If Tables("project_a01").Current("d01") = True Then
e.Form.Controls("TextBox14").ReadOnly = BooleanEnum.True
End If
窗口中还有按钮,按钮的Click事件设定了换行:
With Tables("project_a01")
If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
.Position = .Position - 1
End If
End With
问题是,一旦点击换行,权限设置就会沿用最初点开一行的,不能刷新,如何处理?