全部显示

ActiveDatasheet 属性

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

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

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