Método DataRecordset.GetRowData (Visio)

Obtém os dados de todas as colunas na linha especificada.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expressão. GetRowData (DataRowID)

Expressão Uma expressão que retorna um objeto DataRecordset .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
DataRowID	Obrigatório	Long	A identificação da linha no conjunto de registros de dados do qual você deseja recuperar dados.

Valor de retorno

Variant()

Comentários

Para obter as IDs de linha de todas as linhas no conjunto de registros de dados, use o método GetDataRowIDs . Consulte o exemplo deste tópico.

Se você passar uma identificação de linha zero para o parâmetro DataRowID, o método GetRowData retornará os nomes das colunas no conjunto de registros de dados. Se você passar qualquer outra identificação de linha válida diferente de zero, o método GetRowData retornará valores para todas as colunas na linha especificada, na mesma ordem dos nomes de coluna retornados pelo método quando você passa zero.

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como você pode usar os métodos GetDataRowIDs e GetRowData para retornar a identificação de cada linha e, em seguida, obter os dados armazenados em cada coluna de cada linha do conjunto de registros de dados especificado. A macro obtém a contagem de todos os conjuntos de registros de dados associados ao documento atual e obtém dados de linha para o adicionado mais recentemente. Ela itera em todas as linhas do conjunto de registros de dados e, em seguida, para cada linha, itera em todas as colunas dessa linha. O código exibe as informações retornadas na janela Imediato.

Antes de executar essa macro, crie pelo menos um conjunto de registros de dados no documento atual.

Observe que a macro passa uma cadeia de caracteres vazia para o método GetDataRowIDs para ignorar a filtragem e obter todas as linhas do conjunto de registros. Após executar a macro, observe que o primeiro conjunto de dados mostrado (correspondendo à primeira linha de dados) contém os títulos de todas as colunas de dados no conjunto de registros de dados.

Public Sub GetRowData_Example() 
 
     
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intCount As Integer 
    Dim lngRowIDs() As Long 
    Dim lngRow As Long 
    Dim lngColumn As Long 
    Dim varRowData As Variant 
 
    'Get the count of all data recordsets in the current document. 
    intCount = ThisDocument.DataRecordsets.Count 
 
    Set vsoDataRecordset = ThisDocument.DataRecordsets(intCount) 
 
    'Get the row IDs of all the rows in the data recordset 
    lngRowIDs = vsoDataRecordset.GetDataRowIDs("") 
 
    'Iterate through all the records in the data recordset. 
    For lngRow = LBound(lngRowIDs) To UBound(lngRowIDs) + 1 
        varRowData = vsoDataRecordset.GetRowData(lngRow) 
 
        'Print a separator between rows 
        Debug.Print "------------------------------" 
 
       'Print the data stored in each column of a particular data row. 
        For lngColumn = LBound(varRowData) To UBound(varRowData) 
            Debug.Print varRowData(lngColumn) 
        Next lngColumn 
    Next lngRow 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.