procedure TMainForm.dsbMasterBeforePost(DataSet: TDataSet);
var
lDept: String;
begin
lDept := dsbMaster.DataSet.FieldByName('FUserDept').AsString;
dsbMaster.DataSet.First;
while not dsbMaster.DataSet.Eof do
begin
if dsbMaster.DataSet.Locate('FUserDept',[lDept],[]) then
begin
JsDialogs.ShowMsg('请直接对此队伍进行维护!','提示');
SysUtils.Abort;
end;
dsbMaster.DataSet.Next;
end;
end;