只读问题

htj

X3中，我该怎么实现一个数据集中，某几条数据只读，某几条可以编辑，代码怎么写~！

amao800613

procedure TFSCTNEW.dsFeeAfterScroll(DataSet: TDataSet);
begin
   if DataSet.FieldByName('MVSP_KPWCH_ID').AsString<>WorkID then  //非本班数据不让修改
   begin
       btnDelete.Enabled:= False;
       btnModify.Enabled:= False;
       DataSet.FieldByName('VALID').ReadOnly:= True; //有效标志[]
       DataSet.FieldByName('CHRG_PRJ').ReadOnly:= True;//收费业务项目[]
       DataSet.FieldByName('INVC_CD').ReadOnly:= True; //发票号[]
       DataSet.FieldByName('PAY_WAY').ReadOnly:= True; //付款方式
       DataSet.FieldByName('IN_OUT_PT').ReadOnly:= True;// 进出口
       DataSet.FieldByName('AMT').ReadOnly:= True;      //金额
       DataSet.FieldByName('TRNS_P1').ReadOnly:= True;  //办理人
       DataSet.FieldByName('TRNS_P2').ReadOnly:= True;
       DataSet.FieldByName('TRNS_TM').ReadOnly:= True;  //办理时间
       DataSet.FieldByName('RMK').ReadOnly:= True;      //备注
   end
   else begin
       if not lEdit then
       begin
         btnModify.Enabled:= true;
         btnDelete.Enabled:= true;
       end
       else begin
         btnModify.Enabled:= False;
         btnDelete.Enabled:= False;
         {if not (dsFee.DataSet.state in [TdatasetState.dsEdit,TdatasetState.dsInsert]) then
         dsFee.DataSet.Edit; }
       end;
       DataSet.FieldByName('PAY_WAY').ReadOnly:= false; //付款方式
       DataSet.FieldByName('VALID').ReadOnly:= false; //有效标志[]
       DataSet.FieldByName('CHRG_PRJ').ReadOnly:= false;//  收费业务项目[]
       DataSet.FieldByName('INVC_CD').ReadOnly:= false; //发票号[]
       DataSet.FieldByName('IN_OUT_PT').ReadOnly:= false;// 进出口
       DataSet.FieldByName('AMT').ReadOnly:= false;     //金额
       DataSet.FieldByName('TRNS_P1').ReadOnly:= false;
       DataSet.FieldByName('TRNS_P2').ReadOnly:= false; //办理人
       DataSet.FieldByName('TRNS_TM').ReadOnly:= false; //办理时间
       DataSet.FieldByName('RMK').ReadOnly:= false;     //备注
   end;
end;

htj

可是我需要把记录全部都显示出来啊

htj

并非说显示的数据为只读或者可编辑状态~！

amao800613

自己去弄吧，我多J8管闲事。