不满足条件的代码后面加上
Dim n,n1 As Integer n=CurrentTable.Rowseln1=CurrentTable.colselCurrentTable.Select(n,n1)