老师好:
1、请教一个问题,做了一个按钮,在按钮中写了如下代码,想要的是当点击按钮时,除了“调分”列、“调分理由”列可以编辑外锁住当前行。
2、现在发现整行锁定,不可编辑“调分”列、“调分理由”列,现在应该怎样改写代码呢?
If User.Group = "挤出" Then
Tables("绩效分配表").Current("确认") = True
Tables("绩效分配表").Current("确认时间") = Date.Today()
Tables("绩效分配表").Current.Locked = True
Tables("绩效分配表").Rows("调分").Locked = False
Tables("绩效分配表").Rows("调分理由").Locked = False
For Each dt As DataTable In DataTables
dt.Save()
Next
Else
MessageBox.show("你无确认权限,挤出部方可确认!")
End If