muhua老师给过这个方法:
For Each r As Row In Tables() r.SaveNext
要判断就
For Each r As Row In Tables()
if ???? then
r.Save
end if
Next