dim nms() as string = {"第一列","第二列","第三列"}
Dim ep as string
for each nm as string in nms
if tables("xxx").current.isnull(nm) then
ep= nm
exit for
end if
next
if ep > "" then
messagebox.show(ep & "不能为空")