在PrepareEdit事件有参数属性为IsFocusCell: 可以判断焦点单元格，我希望其他事件中也判断焦点单元格，该怎么写代码？

准备编辑单元格的时候执行。

e参数属性：

Table:       准备编辑的表
Row:         准备编辑的行
Col:         准备编辑的列
IsFocusCell: 逻辑型，是否是焦点单元格   
Cancel:      逻辑型，默认为False，设为True取消编辑。

窗口CurrentChanged事件中如果鼠标有“资产项目”在执行黄色代码，如果鼠标在“负债权益项目”中就执行蓝色代码

Dim dr3As DataRow = DataTables("报表编制说明").find("会计准则 = \'"& CurrentTable.Current("会计准则") & "\'and  (项目 = \'"& CurrentTable.Current("资产项目") & "\' ")

If dr2 IsNot Nothing Then
            \'If Tables("资产负债模板").  IsFocusCell("负债权益项目") Then
                e.Form.Controls("TextBox1").text = dr2("使用说明")
            \'End If
        Else
            e.Form.Controls("TextBox1").text = ""
        End If

Dim dr2 As DataRow = DataTables("报表编制说明").find("会计准则 = \'"& CurrentTable.Current("会计准则") & "\'and 项目 = \'"& CurrentTable.Current("负债权益项目") & "\'")
        If dr2 IsNot Nothing Then
            \'If Tables("资产负债模板").  IsFocusCell("负债权益项目") Then
                e.Form.Controls("TextBox1").text = dr2("使用说明")
            \'End If
        Else
            e.Form.Controls("TextBox1").text = ""
        End If