dim cnt as integer = tables("表A.表B").Compute("Count(_identify)", "某列 <= 0")
if cnt > 0 then
messagebox.show("存在小于零 的")
end if