Поделиться через


Метод DataRecordset.GetRowData (Visio)

Возвращает данные во всех столбцах в указанной строке.

Примечание.

Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.

Синтаксис

expression. GetRowData (DataRowID)

Выражение Выражение, возвращающее объект DataRecordset .

Параметры

Имя Обязательный или необязательный Тип данных Описание
DataRowID Обязательный Long Идентификатор строки в наборе записей данных, из которого требуется извлечь данные.

Возвращаемое значение

Variant()

Замечания

Чтобы получить идентификаторы строк всех строк в наборе записей данных, используйте метод GetDataRowIDs . См. пример в этом разделе.

При передаче нулевого идентификатора строки для параметра DataRowID метод GetRowData возвращает имена столбцов в наборе записей данных. Если вы передаете любой другой допустимый идентификатор строки, отличный от нуля, метод GetRowData возвращает значения для всех столбцов в указанной строке в том же порядке, что и имена столбцов, возвращаемые методом при передаче нуля.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как можно использовать методы GetDataRowIDs и GetRowData, чтобы вернуть идентификатор каждой строки, а затем получить данные, хранящиеся в каждом столбце в каждой строке указанного набора записей данных. Макрос получает количество всех наборов записей данных, связанных с текущим документом, и получает данные строк для последнего добавленного. Он выполняет итерацию по всем строкам в наборе записей данных, а затем для каждой строки выполняет итерацию по всем столбцам в этой строке. Код выводит сведения, возвращаемые в окне интерпретации.

Перед выполнением этого макроса создайте по крайней мере один набор записей данных в текущем документе.

Обратите внимание, что макрос передает пустую строку методу GetDataRowIDs , чтобы обойти фильтрацию и получить все строки в наборе записей. После запуска макроса обратите внимание, что первый набор отображаемых данных (соответствующий первой строке данных) содержит заголовки для всех столбцов данных в наборе записей данных.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.