DbServer.RLockList 属性 |
命名空间: XSharp.VO.SDK
1CLASS Sales INHERIT DBServer 2... 3METHOD ProcessLocked() CLASS Sales 4LOCAL siCount AS SHORTINT 5 6FOR siCount := 1 UPTO ALen(SELF:RLockList) 7SELF:GoTo(RLockList[siCount]) 8// 处理记录 9NEXT 10 11SELF:Unlock() // 释放所有锁