哦,明白了,谢老六了! 在KeyUP事件中,如下代码为何复选框不选中,请教各位了!先谢! dim s as string if e.KeyCode = Keys.LButton then With Tables("员工选择_Table1") If .BottomPosition- .TopPosition >= 1 Then '如果选定区域包括数据大于一行 For i as Integer = .TopPosition To .BottomPosition .Rows(i).checked = true Next End If End With end if