Functions.DbCloseArea 方法 |
命名空间: XSharp.RT
1cLast := "Winston" 2DBUseArea(TRUE, "DBFNTX", "sales", "Sales", TRUE) 3Sales->DBSetIndex("salefnam") 4Sales->DBSetIndex("salelnam") 5DBUseArea(TRUE, "DBFNTX", "colls", "Colls", TRUE) 6Colls->DBSetIndex("collfnam") 7Colls->DBSetIndex("colllnam") 8// 选择 "Sales" 工作区 9IF Sales->DBSeek(cLast) 10 IF Sales->Deleted() .AND. ; 11 Sales->RLock() 12 QOut("记录已删除: ", Sales->Deleted()) 13 ENDIF 14ELSE 15 QOut("未找到") 16 Colls->DBCloseArea() 17ENDIF