如何顯示正確的總筆數

為何不用reccount()?
因為這個函式會將做刪除標記的記錄計算進來,
為了解決這個問題,所以寫了一個函式

Function WRECCOUNT
    Lparameters p_alias
    Local wret
    wret=0
    *20080617 修改 !! 修正計算後指標會跑到最後一筆的情況
    If Empty(p_alias)
        p_alias=Alias()
    Endif
    Select Count(*) From (p_alias) Where !Deleted() Into Array nodelrec
    If !Empty(nodelrec)
        wret=nodelrec[1]
    Endif
    Return wret
Endfunc

使用Select 的語法,計算沒有標記刪除記號的記錄,結果放到矩陣中