Project::SeekByOpenStat (Interface: Project)
 
Seeks an open Project by its status.
 
VARIANT_BOOL SeekByOpenStat (
    enum eSeekMode eSeekMode,
    BSTR bsStatus,
    LONG lNumber
)
 
Key information
This method uses key number 7 (See SwapKey).
This is a unique key.
This is a null key, only the records where pClosed is false are in the index.
 
Key segment information
Segment NameTypeOrderCollation
pStatusBSTRAscendingCase insensitive
pNumberLONG (unsigned)Ascending-
pClosedVARIANT_BOOLAscending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
bsStatus
[in] The status of the project you want to seek.
lNumber
[in] The number of the project you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateProject
 
Samples
 
C++
 
// Seek all open projects with status 'ToCheck'
CString strStatus = "ToCheck";
pProject->SeekByOpenStat (smGreater, (LPCSTR)strStatus, 0);
while (pProject->GetDBStatus () == 0 && (CString)pProject->pStatus == strStatus)
{
    // Process record data
    
    pProject->GetNext ();
}

C#
 
// Seek all open projects with status 'ToCheck'
string strStatus = "ToCheck";
oProject.SeekByOpenStat (eSeekMode.smGreater, strStatus, 0);
while (oProject.GetDBStatus () == 0 && oProject.pStatus.ToString () == strStatus)
{
    // Process record data
    
    oProject.GetNext ();
}

VBS
 
' Seek all open projects with status 'ToCheck'
Dim strStatus
strStatus = "ToCheck"
Call oProject.SeekByOpenStat(smGreater, strStatus, 0)
While oProject.GetDBStatus() = 0 And oProject.pStatus = strStatus
    ' Process record data

    Call oProject.GetNext()
Wend

VB.NET
 
' Seek all open projects with status 'ToCheck'
Dim strStatus As String
strStatus = "ToCheck"
oProject.SeekByOpenStat(eSeekMode.smGreater, strStatus, 0)
While oProject.GetDBStatus() = 0 And oProject.pStatus = strStatus
    ' Process record data

    oProject.GetNext()
End While