改这个业务模型\协同系统\文档\关联\文档关联信息\文档关联网格
例如:
procedure TRelevancyGrid.actNewBizDocUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Sender as TAction).Visible and dsbRelevancy.DataSet.CanInsert
and (Access >= TDocAccessUtils.GetAccessKindValue(TDocAccessKind.akCreate));
end;