?? baktem.prg
字號:
SELECT 1
USE BAKTEM EXCL
ZAP
TOTAL ON Z_GH TO TEM
INDEX ON Z_BGDH TO TEM.EDX ADDITIVE
SELECT 2
USE TEM excl
SELECT KHDATA
B=RECCOUNT()
FOR SKIP = 1 TO B
SCATTER TO KA
K=MEMLINE(KHDATA.Z_GH)
STORE 0 TO _MLINE
FOR COUNT = 1 TO K
SELECT 2
ZAP
APPEND FROM ARRAY KA
AA=MLINE(KHDATA.Z_GH,1,_MLINE)
REPLACE TEM.Z_GH WITH AA
SELECT 1
APPEND FROM TEM
IF COUNT=1
LOOP
ENDIF
blank fields Z_BGF,z_SJF,z_HGF,z_FDF,Z_MTF,Z_QTF,Z_JSF,Z_CGF,Z_DCF,Z_TGF,Z_CZF,Z_CPH,Z_HM,Z_DCH,Z_MO,Z_GS
ENDFOR
SELECT KHDATA
SKIP
ENDFOR
SELECT BAKTEM
DELETE FOR ISBLANK(Z_GH)=.T.
PACK DBF
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -