全部显示

使用 ActiveDatasheet 属性可以和 Screen 对象一起来标识或引用获得焦点的数据表。Form 对象，只读。

expression.ActiveDatasheet

expression     必需。返回“应用于”列表中的一个对象的表达式。

设置

ActiveDatasheet 属性设置包含了在运行时获得焦点的数据表对象。

此属性仅在使用宏或 Visual Basic 时才可用，并且在所有视图中具有只读属性。

说明

您可以使用该属性来引用活动数据表及其一个属性或方法。例如，下面的代码使用 ActiveDatasheet 属性引用活动数据表中选定区域的第一行。

TopRow = Screen.ActiveDatasheet.SelTop

示例

下面的示例使用 ActiveDatasheet 属性标识获得焦点的数据表单元格，如果同时选定多个单元格，则定位于选定区域中的第一行第一列。

Public Sub GetSelection()

    ' This procedure demonstrates how to get a pointer to the

    ' current active datasheet.

    Dim objDatasheet As Object

    Dim lngFirstRow As Long

    Dim lngFirstColumn As Long

    Const conNoActiveDatasheet = 2484

    On Error GoTo GetSelection_Err

    Set objDatasheet = Screen.ActiveDatasheet

    lngFirstRow = objDatasheet.SelTop

    lngFirstColumn = objDatasheet.SelLeft

    MsgBox "The first item in this selection is located at " & _

        "Row " & lngFirstRow & ", Column " & _

        lngFirstColumn, vbInformation

GetSelection_Bye:

    Exit Sub

GetSelection_Err:

    If Err = conNoActiveDatasheet Then

        MsgBox "No data sheet is active.", vbExclamation

        Resume GetSelection_Bye

    End If

End Sub