cxdbtreelist的处理点滴

由程序修改数据：

procedure TFormBase1.Act_CalcFileCodeExecute(Sender: TObject);
var
  i,j,mystep,mycode,mylen,k : Integer;
  mybegin,myend,tmp_str : string;
  myNode : TcxTreeListNode;
  myclientdataset : TDataSet;
begin
  inherited;
  if CalcFileCodeDlg.ShowModal=mrOk then
     begin
        mystep := CalcFileCodeDlg.cxspndt_step.Value;
        mybegin := CalcFileCodeDlg.cxtxtdt_begin.Text;
        myend :=  CalcFileCodeDlg.cxtxtdt_end.Text;
        mycode :=  CalcFileCodeDlg.cxspndt_code.Value;
        mylen :=  CalcFileCodeDlg.cxspndt_len.Value;
        if not Assigned(lst_projet) then  Exit;
        myclientdataset := lst_projet.DataController.DataSet;
        lst_projet.BeginUpdate;
       try
         myNode := lst_projet.FocusedNode;
         for I := 0 to lst_projet.SelectionCount - 1 do
            begin
               j:=i * mystep;
               tmp_str := '%s%.'+inttostr(mylen)+'d%s';
               lst_projet.SetFocusedNode(lst_projet.Selections[I], [ssCtrl]);
               myclientdataset.Edit;
               if CalcFileCodeDlg.rg_ItemCode.ItemIndex=0 then
                  myclientdataset.FieldByName('pm_code').AsString := Format(tmp_str,[mybegin,mycode+j,myend]);
               if CalcFileCodeDlg.rg_ItemCode.ItemIndex=1 then
                  myclientdataset.FieldByName('pm_No').AsString := Format(tmp_str,[mybegin,mycode+j,myend]);
               myclientdataset.Post;
            end;
         if Assigned(myNode) then lst_projet.SetFocusedNode(myNode, [ssCtrl]);
       finally
          lst_projet.EndUpdate;
       end;
     end;
end;

由代码规则窗口设定参数，此代码根据规则生成format的字符串tmp_str。然后根据规则修改多选的记录表字段：编码pm_code和序号pm_no。

同时注意：如果用到tree图标显示字段，那么会检查该值。是null将会出现转换错误。