次の方法で共有

DataRecordset.GetRowData メソッド (Visio)

  • [アーティクル]

指定された行のすべての列のデータを取得します。

注:

この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。

構文

式。GetRowData (DataRowID)

式DataRecordset オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
DataRowID 必須 Long 取得するデータ レコードセットの行 ID です。

戻り値

Variant()

注釈

データ レコードセット内のすべての行の行 ID を取得するには、 GetDataRowIDs メソッドを使用します。 このトピックの例を参照してください。

DataRowID パラメーターに 0 の行 ID を渡すと、GetRowData メソッドはデータ レコードセットの列の名前を返します。 0 以外の有効な行 ID を渡した場合、GetRowData メソッドは指定された行のすべての列の値を、0 をメソッドに渡して取得した列名と同じ順序で返します。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは GetDataRowIDs メソッドおよび GetRowData メソッドを使用して各行の行 ID を取得し、指定されたデータ レコードセットのすべての行の各列に保存されたデータを取得する方法を示しています。 このマクロは、現在のドキュメントに関連付けられているすべてのデータ レコードセットの数を取得し、最後に追加されたデータの行データを取得します。 データ レコードセットのすべての行をループし、次に、各行のすべての列をループします。 取得した情報を [イミディエイト] ウィンドウに表示します。

このマクロを実行する前に、現在の図面に最低 1 つのデータ レコードセットを作成してください。

このマクロでは 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 のサポートおよびフィードバックを参照してください。