Dim r as row = Tables("表A").Rows(Tables("表A").Rows.Count - 1)
Dim mm as Boolean = true
for Each c as col in Tables("表A").Cols
if r.ismull(c) = false then
mm = false
end if
next
return mm