cxdbtreelist的处理点滴
由程序修改数据：
1 procedure TFormBase1.Act_CalcFileCodeExecute(Sender: TObject); 2 var 3 i,j,mystep,mycode,mylen,k : Integer; 4 mybegin,myend,tmp_str : string; 5 myNode : TcxTreeListNode; 6 myclientdataset : TDataSet; 7 begin 8 inherited; 9 if CalcFileCodeDlg.ShowModal=mrOk then 10 begin 11 mystep := CalcFileCodeDlg.cxspndt_step.Value; 12 mybegin := CalcFileCodeDlg.cxtxtdt_begin.Text; 13 myend := CalcFileCodeDlg.cxtxtdt_end.Text; 14 mycode := CalcFileCodeDlg.cxspndt_code.Value; 15 mylen := CalcFileCodeDlg.cxspndt_len.Value; 16 if not Assigned(lst_projet) then Exit; 17 myclientdataset := lst_projet.DataController.DataSet; 18 lst_projet.BeginUpdate; 19 try 20 myNode := lst_projet.FocusedNode; 21 for I := 0 to lst_projet.SelectionCount - 1 do 22 begin 23 j:=i * mystep; 24 tmp_str := '%s%.'+inttostr(mylen)+'d%s'; 25 lst_projet.SetFocusedNode(lst_projet.Selections[I], [ssCtrl]); 26 myclientdataset.Edit; 27 if CalcFileCodeDlg.rg_ItemCode.ItemIndex=0 then 28 myclientdataset.FieldByName('pm_code').AsString := Format(tmp_str,[mybegin,mycode+j,myend]); 29 if CalcFileCodeDlg.rg_ItemCode.ItemIndex=1 then 30 myclientdataset.FieldByName('pm_No').AsString := Format(tmp_str,[mybegin,mycode+j,myend]); 31 myclientdataset.Post; 32 end; 33 if Assigned(myNode) then lst_projet.SetFocusedNode(myNode, [ssCtrl]); 34 finally 35 lst_projet.EndUpdate; 36 end; 37 end; 38 end;
由代码规则窗口设定参数，此代码根据规则生成format的字符串tmp_str。然后根据规则修改多选的记录表字段：编码pm_code和序号pm_no。
同时注意：如果用到tree图标显示字段，那么会检查该值。是null将会出现转换错误。
