zoukankan      html  css  js  c++  java
  • 示例:从Table中获取SelectionSet

    从Table中获取SelectionSet

    Tablewindow对象允许你获取被选中的行,下例显示了通过ITablewindow的SelectionSet属性获取Selection对象的方法

    Public Sub GetTableSelection()
        Dim pMxDoc As IMxDocment
        Set pMxDoc = ThisDocument
    'Use the ITableCollection interface on the Map to get at all tables in the current data frame
        Dim pTableCollection As ITableCollection
        Set pTableCollection = pMxDoc.FocusMap
        If pTableCollection.TableCount  1 Then
            MsgBox "There are no tables in the active data frame", vbExclamation
            Exit Sub
        End If
    'Get the first table from the collection
        Dim pTable As ITable
        Set pTable = pTableCollection.Table(0)
        

        Dim pTabWin As ITableWindow
        Dim pOldWin As ITableWindow
        Set pTabWin = New TableWindow
    'Check to see if the table windwo is already open
        Set pOldWin = pTabWin.FinViatable(pTable, False)
        If Not pOldWin Is Nothing Then
            Set pTabWin = pOldWin
        Else
            Set pTabWin.Table = pTable
            Set pTabWin.Application = Application
    'Allow one selected row
            pTabWin.TableSelectionAction = esriSelectCurrentRow
            pTabWin.Show True
        End If
    'Get the SelectionSet
        Dim pSelSet As ISelectionSet
        Set pSelect = pTabWin.SelectonSet
    'Use the SelectionSet property on ITableWin to get the selected records

    'Show the count of selected records in a message box
        MsgBox "The table has " & pSelSet.Count & "selected records"
    End Sub

  • 相关阅读:
    多态
    封装
    继承
    面向对象
    2.机器学习相关数学基础
    作业1 机器学习概述
    作业15 语法制导的语义翻译
    作业14 算符优先分析
    作业13 自下而上语法分析
    作业12 实验二 递归下降语法分析
  • 原文地址:https://www.cnblogs.com/lauer0246/p/SelectionSet.html
Copyright © 2011-2022 走看看