上移代码 :
if self.DataSetBroker1.DataSet.RecordCount>0 then
begin
curxh:=DataSetBroker1.DataSet.FieldByName('xh').Asinteger; //当前选中行的受理单位
curXfmc:=DataSetBroker1.DataSet.FieldByName('xfmc').AsString; //当前选中行的操作内容
curGuid:=DataSetBroker1.DataSet.FieldByName('xfGuid').AsString;
NewGuid:=jscommon.CreateGUIDStr;