按钮的Click事件:
dim r as row = Tables("表名")
if r.isnull("列1") orelse r.isnull("列2") orelse r.isnull("列3") then
执行代码
end if
三列都有数据,则不执行代码。