多米诺数据库检查是否有数据

function NoteExport.hasDoc: Boolean;

var
doc: IDocument;
id: OleVariant;
begin
Result := False;
try
docview.Refresh;
doc := doccur;
if doc = nil then
begin
doc := docview.GetFirstDocument;
end
else
doc := docview.GetFirstDocument;
//doc := docview.GetNextDocument(doc);
{while (not VarIsNull(doc) and
(VarIsNull(doc.GetItemValue('ToArcYes')) or VarIsEmpty(doc.GetItemValue('ToArcYes')))) do
begin
doc := docview.GetNextDocument(doc);
end;}
doccur := doc;
if (doccur <> nil) and (not VarIsNull(doccur)) then
begin
Result := True;
end
else
doccur := nil;
except
SendMsg('结束:获取文档');
end;
end;
本文地址：[url]http://www.xszlo.com/article/2012-12-10/7619.html[/url]，转发请保留这个地址，谢谢