cxgrid seçilen malzemeye göre birim listeleme

[m_ekici]

Merhaba

aynı problemi şöyle çözmüştüm; cxgriddeki Brim kolonunun onGetproperties eventinde o stok için brimleri alıyorsun.   

procedure TfSipFisGir.LV_BRIMGetProperties(Sender: TcxCustomGridTableItem;
  ARecord: TcxCustomGridRecord; var AProperties: TcxCustomEditProperties);
Var
   SetID:Integer;
   RS:_Recordset;
   ICBP:TcxImageComboBoxProperties;
   Ind:Integer;
begin
 SetID:=Var2Int(ARecord.Values[LV_BRMSET.Index]);
 if SetID>0 then
 begin
    Ind:=BrmListe.IndexOf(IntToStr(SetID));
    if Ind<0 then
    begin
      ICBP:=TcxImageComboBoxProperties.Create(nil);
      RS:=DBF.Connection.Execute('Select SIRA, ADI From INFO_BRIMDETAY Where SetNO='+IntToStr(SetID));
      while Not RS.EOF do
        begin
        With ICBP.Items.Add Do
             begin
             Description:=VarToStr(RS.Fields['ADI'].Value);
             Value:=Var2Int(RS.Fields['SIRA'].Value);
             end;
        RS.MoveNext;
        end;
       BrmListe.AddObject(IntToStr(SetID),ICBP);
    end else
             begin
             ICBP:=TcxImageComboBoxProperties(BrmListe.Objects[Ind]);
             end;
    AProperties:=ICBP;
 end else begin
   AProperties:=ERep_ImgCombo1.Properties;
 end;

end;

aşağıdaki componenti ve fonsiyonu da eklemen gerekiyor. 

ERep_: TcxEditRepository;
ERep_ImgCombo1: TcxEditRepositoryImageComboBoxItem;
ERep_ImgCombo2: TcxEditRepositoryImageComboBoxItem;

Function Var2Int(Val:Variant):Integer;
begin
  if Val=null then
     Result:=0
  else
     Result:=Val;
end;