在Visio中连接数据

以编程方式访问数据记录集中的数据

以下示例代码说明如何使用 GetDataRowIDs 和 GetRowData 方法返回每一行的行 ID，然后获取所传入数据记录集的每一行及每一列中存储的数据。 该示例使用两个嵌套的 For…Next 循环来循环访问记录集内的所有行，然后对每一行循环访问该行中的所有列。 这段代码将在“即时”窗口中显示返回的信息。 请注意，您需要向 GetDataRowIDs 方法传入空字符串，以便不进行筛选，从而获取记录集内的所有行。 在调用该过程后，您会看到所显示的第一组数据（与第一个数据行相对应）包含数据记录集内所有数据列的标

Public Sub GetDataRecords(vsoDataRecordset As Visio.DataRecordset)

    Dim lngRowIDs() As Long
    Dim lngRow As Long
    Dim lngColumn As Long
    Dim varRowData As Variant

    'Get the row IDs of all the rows in the recordset
    lngRowIDs = vsoDataRecordset.GetDataRowIDs("")

    'Iterate through all the records in the recordset.
    For lngRow = LBound(lngRowIDs) To UBound(lngRowIDs)
        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 vsoDataRecordset.DataColumns(lngColumn + 1).Name _
               & Trim(Str(lngColumn)) & " = " & VarRowData(lngColumn)
        Next lngColumn
    Next lngRow

End Sub