Hi, I have a xbrowse:
Lista40:cAlias := "ARQANO"
How I count records? I don't want the deleted ones to enter the sum.
Thanks!
SET FILTER TO !DELETED()
? OrdKeyCount()
INDEX ON RECNO() TAG RECS FOR !DELETED() // keep this index tag also
// then
? OrdKeyCount( "RECS" )
INDEX ON RECNO() TAG DELS FOR DELETED() // kee this index tag also
? OrdKeyCount(0) - OrdKeyCount( "DELS" )
nageswaragunupudi wrote:With or without XBrowse, we need to know the number of records in a DBF which are not deleted.
There is no simple function for this.
Does not matter whether SET DELETED is ON or OFF:
Both LASTREC() and RECCOUNT() include deleted records also.
ORDKEYCOUNT() also does not exclude deleted records by itself, but honors filters, scopes and index expressions.
So,
1)
- Code: Select all Expand view
SET FILTER TO !DELETED()
? OrdKeyCount()
2)
- Code: Select all Expand view
INDEX ON RECNO() TAG RECS FOR !DELETED() // keep this index tag also
// then
? OrdKeyCount( "RECS" )
3)
- Code: Select all Expand view
INDEX ON RECNO() TAG DELS FOR DELETED() // kee this index tag also
? OrdKeyCount(0) - OrdKeyCount( "DELS" )
@ 148, 320 BTNBMP aBtnBrow[1] ;
RESOURCE "DWN_TBL", "", hBmp, "" ;
SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lArrows OF oDlg ;
ACTION oBrw:KeyDown(VK_UP, 0)
@ 148, 335 BTNBMP BTNBMP aBtnBrow[2] ;
RESOURCE "UP_TBL", "", hBmp1, "" ;
SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lArrows OF oDlg ;
ACTION oBrw:KeyDown(VK_DOWN, 0)
Silvio.Falconi wrote:perhaps
len(oBrw:aArrayData )
or
oBrw:nDataRows
nageswaragunupudi wrote:With or without XBrowse, we need to know the number of records in a DBF which are not deleted.
There is no simple function for this.
Does not matter whether SET DELETED is ON or OFF:
Both LASTREC() and RECCOUNT() include deleted records also.
ORDKEYCOUNT() also does not exclude deleted records by itself, but honors filters, scopes and index expressions.
So,
1)
- Code: Select all Expand view
SET FILTER TO !DELETED()
? OrdKeyCount()
2)
- Code: Select all Expand view
INDEX ON RECNO() TAG RECS FOR !DELETED() // keep this index tag also
// then
? OrdKeyCount( "RECS" )
3)
- Code: Select all Expand view
INDEX ON RECNO() TAG DELS FOR DELETED() // kee this index tag also
? OrdKeyCount(0) - OrdKeyCount( "DELS" )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 60 guests