主题：[求助]求修改，编译不过

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) '获得原来选择的行

        For Each c As Col In e.Table.Cols

            If [C.Name] not In ('编辑者','执行次数') Then  ‘此行有问题

                MessageBox.Show(c.Name)

            End If

        Next

    End If

End If