你应该判断一下有没有数据:
Dim dr As Row=Tables("表A").currentIf dr Is Nothing OrElse dr.Isnull("第一列") Then ReturnEnd If