5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TfrmCANKAB.cxGrid1DBTableView1Editing(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
var AAllow: Boolean);
begin
inherited;
if (AItem.Caption = '需求日期') or (AItem.Caption = '供应商编号') or (AItem.Caption = '请购数量') or (AItem.Caption = '锁定码') then
begin
if QryDetail.FieldByName('NKB18').AsFloat>0 then
begin
AAllow := False;
end
else
begin
AAllow := True;
end;
end;
end;