打开表 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]屏幕 |