With CurrentTable Dim r As Integer r = .FindRow("[应答] is null ") '从第一行开始查找 If r >= 0 Then '如果找到的话 .Position = r '定位到找到的行。 End IfEnd With