[求助]新增行，焦点不在新增行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then'而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        If r.IsNull("id") Then '如果编号为空
            e.Cancel = True
            e.Table.Position=r.Index
        ElseIf r.DataRow.RowState<>DataRowState.Unchanged Then
            e.Cancel = True
            e.Table.Position=r.Index
        End If
    End If
End If

主题：[求助]新增行，焦点不在新增行