流程回转问题**

wulei_doudou_1

按您那个方法，代码这么写对吗？还少点什么吗？我觉得不太对，您给修改一下，谢谢！
var
BiaoShi:=string;
ControlID:=string;
begin
BiaoShi:=DataSetBroker1.FieldByName('LCKZBS').AsString;
if BiaoShi='第一次录入'   then
   ControlID:=0;
else
  ControlID:=1;
end;
if  ControlID:=0   then
DataSetBroker1.XMJLYJ.Edit;
DataSetBroker1.XMJLJL.Edit;
......
else
DataSetBroker1.XMJLYJHT.Edit;
DataSetBroker1.XMJLJLHT.Edit;
....
end;
end;

lisb

。

wulei_doudou_1

什么意思？

atiger

31楼写的啥呀？是我30楼说要在回退的时候修改标识吗？
这个字段本身就让他存放0和1，没有第三个值，明白不。

另外，你知道你写的这段代码是啥意思吗？
begin
BiaoShi:=DataSetBroker1.FieldByName('LCKZBS').AsString;
if BiaoShi='第一次录入'   then
   ControlID:=0;
else
  ControlID:=1;
end;
是标识判断DataSetBroker1数据集的“'LCKZBS'”这个字段的值是否等于“第一次录入”，如果是那么给变量ControlID赋值为0，如果不是赋值1。
if  ControlID:=0   then
DataSetBroker1.XMJLYJ.Edit;
DataSetBroker1.XMJLJL.Edit;
......
else
DataSetBroker1.XMJLYJHT.Edit;
DataSetBroker1.XMJLJLHT.Edit;
....
end;
这段判断ControlID这个值的意义在哪里呢？

当然，你上面的代码语法还有问题，


修改为：
begin
  DataSetBroker1.DataSet.First;
  while not  DataSetBroker1.DataSet.Eof do
  begin
     DataSetBroker1.DataSet.Edit;
     DataSetBroker1.DataSet.FieldByName('LCKZBS').AsString := '1';
     DataSetBroker1.DataSet.next;
  end;
DataSetBroker1.DataSet.ApplyUpdates;
end;

wulei_doudou_1

您好，现在这段代码只能实现一些字段在第一次进入流程时是可编辑的，而回退时是只读的。
那我还想另外的一些字段在第一次录入时是只读的，在回退时是可编辑的，怎么办？

wulei_doudou_1

还有阿，我刚开始学Delphi，进程有点慢，工程又有需要，所以麻烦你们多给与帮助，谢谢了！

lisb

30楼的第2点不已经告诉你了吗？

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。