Functions.VoDbSetLocate 方法 |
命名空间: XSharp.RT
1FUNCTION Locators() AS LOGIC 2 LOCAL cbForCondition, cbWhileCondition, nNext, ; 3 uRecId, lRest 4 USE test 5 cbForCondition := {||Proper(ALLTRIM(Name)) == ; 6 "Charly"} 7 cbWhileCondition := {||TRUE} // 处理到 EOF 8 nNext := -1 // 范围为全部 9 uRecId := NIL // 保持为 NIL 10 lRest := FALSE // 从文件顶部开始搜索 11 // 搜索 Charly 12 DBLocate(cbForCondition, cbWhileCondition, ; 13 nNext, uRecId, lRest) 14 ? Found(), RECNO(), Name 15 // 指定第二个名字;搜索 Odile 16 VODBSetLocate({||Proper(ALLTRIM(Name))=="Odile"}) 17 CONTINUE 18 ? Found(), RECNO(), Name 19 DBCloseArea() 20 RETURN Found()