主题：[求助]焦点行的触发！

请问，

在datacolchanged事件中，datarow，触发后，引用ROW的属性，

下列代码，在使用代码触发时，只能触发焦点单元格所在的行（焦点一直定位在增加行时所在的位置），

该如何修改呢？

If e.DataCol.name = "第二列"
    With Tables("窗口1_table1")
        Dim i As Integer = .FindRow("[第一列] = '" & e.DataRow("第一列") & "'",.Position)
        If i >= 0 AndAlso e.NewValue IsNot Nothing Then
            If e.NewValue <> 0 Then '不等于0,选中
                .Rows(i).Checked = True
            Else  'If e.NewValue = 0 OrElse e.NewValue = "" Then '等于0,不中
                .Rows(i).Checked = False
            End If
        End If
    End With
End If