以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]后台行已解锁表中行还是锁定状态  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175020)
--  作者：沪上游客
--  发布时间：2022/2/16 14:30:00
--  [求助]后台行已解锁表中行还是锁定状态
老师新年好！
我在窗口设定了“取消审批”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
--  作者：有点蓝
--  发布时间：2022/2/16 14:40:00
--  
后台数据的变化肯定不会影响前台的。

方法1、改变后台数据后，需要重新加载数据
2、直接改前台数据
--  作者：沪上游客
--  发布时间：2022/2/16 15:47:00
--  
谢谢蓝大师！我试一下。好像重新加载后数据变化了就是没有解锁。
[此贴子已经被作者于2022/2/16 15:55:17编辑过]
--  作者：有点蓝
--  发布时间：2022/2/16 16:04:00
--  
怎么加载的？另外这个代码解锁的是行，不是解锁表。如果表锁了，和后台数据库是没有关系的。您锁的是行？还是表？怎么锁的？
[此贴子已经被作者于2022/2/16 16:06:29编辑过]