作者: chenxi_aji 发布时间: 2007-06-26
作者: yi10000 发布时间: 2007-06-26
作者: chenxi_aji 发布时间: 2007-06-26
作者: axinglqs 发布时间: 2007-06-26
---------------------------------------------
什么的enabled?cxGridDBTableView的?
作者: chenxi_aji 发布时间: 2007-06-27
作者: chenxi_aji 发布时间: 2007-06-28
作者: Ray2312 发布时间: 2010-08-26
作者: wxsan 发布时间: 2010-08-26
if (TableView.Controller.FocusedRecord.Values[需要判断的列] = 值) and (AItem.Index= 第几列) then
AAllow := False
else
AAllow := True;
作者: wxsan 发布时间: 2010-08-26
Delphi(Pascal) code
procedure TFeeder_Alternative_F.cxGrid3DBTableView1Editing( Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; var AAllow: Boolean); begin inherited; if AItem.ID in[0,1,2,3,4,5,6,7,9] then begin AAllow:=False; cxGrid3DBTableView1Column9.Properties.ReadOnly:=True; end; if AItem.ID=0 then begin if cxGrid3DBTableView1.DataController.Controller.FocusedRecord.Values[10]='0' then begin AAllow:=False; cxGrid3DBTableView1Column9.Properties.ReadOnly:=True; MessageDlg('提示:已鎖定,此筆材料不能作替代料!',mtWarning,[mbOK],0); Exit; end else begin if cxGrid3DBTableView1.DataController.Controller.FocusedRecord.Values[6]<>'00' then begin AAllow:=False; cxGrid3DBTableView1Column9.Properties.ReadOnly:=True; MessageDlg('提示:已鎖定,此筆材料不能作替代料!',mtWarning,[mbOK],0); Exit; end else AAllow:=True; cxGrid3DBTableView1Column9.Properties.ReadOnly:=False; end; end; end;
作者: kye_jufei 发布时间: 2010-08-26