DataRecordset.GetRowData 方法 (Visio)

會取得指定之資料列中所有資料欄內的資料。

注意事項

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

語法

運算式。GetRowData (DataRowID)

表達 會傳回 DataRecordset 物件的 運算式。

參數

名稱	必要/選用	資料類型	描述
DataRowID	必要	Long	您要從中擷取資料之資料錄集內的資料列識別碼。

傳回值

Variant ()

註解

若要取得記錄集中所有資料列的資料列識別碼，請使用 GetDataRowIDs 方法。 請參閱本主題中的範例。

若為 DataRowID 參數傳送值為的資料列識別碼，GetRowData 方法就會傳回資料錄集內的資料欄名稱。 若傳送零以外的任何其他有效的資料列識別碼，GetRowData 方法就會傳回指定資料列中所有資料欄的值，而且順序會與方法在您傳送零時所傳回的資料欄名稱相同。

範例

這個 Microsoft Visual Basic for Applications (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 支援與意見反應。