你不是吧?
Dim pr As Integer = DataTables("表A").DataRows.Count
.......
pr = DataTables("表A").DataRows.Count - pr
msgbox(pr)