delphi 如何判断dbgrid1是否有数据集

2026年09月22日 23:30
有3个网友回答
网友(1):

if qry_s.isempty then
begin
messagedlg('对不起,无数据,无法操作,',MTWARNING,[MBOK],0);
EXIT
end;
IF NOT QRY_S.ISEMPTY THEN
BEGIN
messagedlg('数据存在,',MTWARNING,[MBOK],0);
END;

网友(2):

if dbgrid1.DataSource.DataSet.recordcount>0 then
showmessage('有')
else
showmessage('没有');

网友(3):

dbgrid.datasource.dataset=nil