MEMLINES( ) (Función)

  • Artículo

Devuelve el número de líneas de un campo memo.

MEMLINES(MemoFieldName)

Valores devueltos

Numeric

Parámetros

  • MemoFieldName
    Es el nombre de un campo memo. Si el campo memo está en una tabla que no está abierta en el área de trabajo actual, incluya delante del nombre del campo memo el alias de la tabla y un punto.

Observaciones

El número de líneas de un campo memo está determinado por el valor actual de SET MEMOWIDTH.

Ejemplo

El ejemplo siguiente examina tres registros de la tabla employee y utiliza MEMLINES( ) para determinar si hay datos en el campo memo notes y cuándo deben producirse los saltos de página. Aparecen los datos de last name para el registro, junto con notes (si hay datos en el campo memo) o un mensaje que indica que no hay notes para ese registro.

CLOSE DATABASES
CLEAR
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee  && Open Employee table

SET MEMOWIDTH TO 65
gnLine = 1
GOTO 2
SCAN NEXT 3
   gnMemoSize = MEMLINES(notes)
   IF gnMemoSize = 0
      STORE .T. TO glNoMemo
      STORE 1 TO gnMemoSize
   ELSE
      STORE .F. TO glNoMemo
   ENDIF
   IF gnLine + gnMemoSize > 65
      EJECT
      gnLine = 1
   ENDIF
   @ gnLine,2 SAY 'Last Name: '+ last_name
   gnLine = gnLine +1
   @ gnLine ,2 SAY 'Notes: ' 
   ?? IIF(glNoMemo, 'No notes ',notes)
   gnLine = gnLine + gnMemoSize + 2
   IF gnLine > 24
      gnLine = 1
      CLEAR
   ENDIF
ENDSCAN

Vea también

_MLINE | ALINES( ) | ATCLINE( ) | ATLINE( ) | COPY MEMO | MLINE( ) | MODIFY MEMO | SCATTER | SET MEMOWIDTH