漂流瓶537 发表于 2024-3-7 13:41

PML语言学习之分批数据库整理

var !all coll all db
!merge = ARRAY()
do !x index !all
        !id = projid of $!all[$!x]

        !name = name of $!all[$!x]
       
        !numbdb = numbdb of $!all[$!x]
if !id.Size() eq 0 and !numbdb.real() gt 10000then
        $p $!name
        !merge.append('MERGE CHANGES ' & !name.replace('/*', ''))
endif
enddo

do !x index !merge
        $!merge[$!x]
handle any
endhandle
enddo

afei 发表于 2024-3-7 16:10

学习中..................
页: [1]
查看完整版本: PML语言学习之分批数据库整理