打开表
If !clalev([BM2]) : Local File BOM[BM2] : Endif
关闭表
Close file[BM2]
插入表
打开表,然后赋值,再Write即可增加新纪录。
查找符合条件的记录
For [BD2] Where ITMREF = CITMREF & BOMALT = IBOMALT
Next
给变量赋表值
NEWITMREF = [F:BD2]CPNITMREF
Rewrite覆盖记录
[F:SOQ]SHIDAT = date$
Rewrite [F:SOQ]
write 一般用于增加新纪录
批量更新
Trbegin[MFI]
Update [MFI] Where MFGNUM=NUM & MFGLIN=LINES With STRDAT= TSTRDAT , ENDDAT = TENDDAT
Commit
过滤表
Filter [ITM2] Where BASPRI>100 //过滤表条件 BASPRI>100
批量删除
Delete [AXX] Where CODFIC="TABCOUNTRY" & IDENT1=[L]CODE
Link指令(表连接)
Link <Class> With <Class><Index> [ (<Index_Part>) ] = <Expression> [ , ... ]
As <Abbreviation>
[ & Where <Condition> ]
[ & Order By <Sort_Order> ]
实例:
# ITF表连接两个其他表
# 读取信息并填充SBI2屏幕
Link [ITF] With [ITV]ITV0=[F:ITF]ITMREF;[F:ITF]STOFCY,
& [ITM]ITM0=[F:ITF]ITMREF
& As [LNK]
& Where [F:ITF]CUNFLG = 2 & [F:ITF]STOFCY = [M:SBI1]FCY
& Order By Key ITF1
For [LNK]
[M:SBI2] = [F:ITM]
[M:SBI2] = [F:ITV]
[M:SBI2] = [F:ITF]
Next
Read指令
Read [<Class>][<Index_ID>][ (<Index_Part>) ] [First | Curr | Next | Prev | Last]
格式:Read [XXX]KEY >= VALUE1;VALUE2
实例:
# Product-Site table 打开产品地点表
Local File ITMFACILIT [ITF]
# Read first record 第一条记录读取
Read [ITF] First :# Default index, ITF0 = ITMREF+STOFCY is used
# Read precise record 精确记录读取
Read [ITF]ITF0 = "1INCHSCREW";"S01"
# Read next one 下一条记录读取
Read [ITF] Next :# Or Read [ITF]ITF0 Next
实例:
# Product-Site table 打开产品地点表
Local File ITMFACILIT [ITF]
# Read first record with index >= "B";"S01"
Read [ITF]ITF0 >= "B";"S01"
Look指令
Look看记录是否存在但不载入
Columns 列指令
Columns [ORI] ([ITM]ITMREF,[ITM]ITMDES1,[ORD])
列中显示[ITM]ITMREF,[ITM]ITMDES1和[ORD]记录
Columns [SOQ] With Mask ([M:SOX])
将[SOQ] 的数据填写到[M:SOX]屏幕
好东西,多谢分享!
这个总结的不错,谢谢傅强大哥
欢迎光临 赛捷软件论坛 (http://sagesoft.cn/bbs/) | Powered by Discuz! 7.2 |