老师新年好！
我在窗口设定了“取消审批”Button，代码如下。利用SQLFind执行后，后台Locked 列= False正确，但是表"项目资金管理"该行还是锁定状态，不知道为什么？请老师指教。谢谢！
If User.IsRole("审批") Then
Tables("总部申报").Current("审批人") = Nothing
Tables("总部申报").Current("审批日期") = Nothing
Tables("总部申报").Current("审批") = False
Tables("总部申报").Current.Locked = False
Tables("总部申报").Current.Save()
Dim jlbh As String = Tables("总部申报").Current("记录编号")
Dim dr As DataRow = DataTables("项目资金管理").SQLFind("[记录编号] = '" & jlbh & "'")
If dr IsNot Nothing
dr("审批人") = Nothing
dr("审批日期") = Nothing
dr("审批") = False
dr.Locked = False
dr.Save()
End If
Else
MessageBox.show("你无取消审核权限!")
End If
加好友 
发短信
Post By：2022/2/16 14:30:00 [只看该作者]
