if dbgrid.datasource.dataset.recordcount <1 then DBGrid没有内容!
参考一下: var j:integer; begin with DBGrid1.DataSource.DataSet do for j := 0 to FieldCount-1 do begin //showmessage(fields[j].FieldName+fields[j].AsString); if fields[j].AsString='' then begin showmessage(fields[j].FieldName+'填入的数据为空,不能继续!'); break; end; end; end;
另外,程序中可加入异常处理:
begin
try
...//写入,保存
post;
except// 出异常时
cancel;//取消刚才操作
showmessage('存盘错误');
end;
end;
DBGrid没有内容!
var
j:integer;
begin
with DBGrid1.DataSource.DataSet do
for j := 0 to FieldCount-1 do
begin
//showmessage(fields[j].FieldName+fields[j].AsString);
if fields[j].AsString='' then
begin
showmessage(fields[j].FieldName+'填入的数据为空,不能继续!');
break;
end;
end;
end;