那没办法,自己比较呗
For Each dr As Row In Tables("表A").GetCheckedRows If dr.equals(Tables("表A").Current) Then msgbox("相等") End IfNext