在dataset的Beforepost事件中写:var I:Integer; Empty:Boolean; begin Empty:=True; for I:=0 to Dataset.FieldCount-1 do begin if not DataSet.Fields[I].IsNull then Exit; end; if Empty then DataSet.Cancel; end;
To mastersky:你漏掉了将 Empty 设为 False 的语句了!var I:Integer; Empty:Boolean; begin Empty:=True; for I:=0 to Dataset.FieldCount-1 do begin if not DataSet.Fields[I].IsNull then begin Empty := False; Exit; end; end; if Empty then DataSet.Cancel; end;
I:Integer;
Empty:Boolean;
begin
Empty:=True;
for I:=0 to Dataset.FieldCount-1 do
begin
if not DataSet.Fields[I].IsNull then
Exit;
end;
if Empty then
DataSet.Cancel;
end;
I:Integer;
Empty:Boolean;
begin
Empty:=True;
for I:=0 to Dataset.FieldCount-1 do
begin
if not DataSet.Fields[I].IsNull then
begin
Empty := False;
Exit;
end;
end;
if Empty then
DataSet.Cancel;
end;
已经Exit了,Empty:=False;是多余的。