【结帖】当前数据集的当前记录**

vagrant

请问我要判断当前操作者编号是否等于当前数据集的当前记录的一字段值，我写的代码如下，但执行的时候判断的都是不相等。帮忙检查下是否写错了
lk := TBizDataSetAction(DataNavigator.Buttons[0].Action ).CurrentDataSource.DataSet.FieldByName ('FZR');
  //lw := TSystemCoreOperator.Positions[0].PersonMember.ID ;
  if ((Sender as TBizDataSetAction).ID =BizActnConsts.ActionDataSetSave ) then
  begin
    if lk <> TSystemCore.Operator.Positions[0].PersonMember.ID then
    begin
      Accept :=False;
      Jsdialogs.ShowMsg ('你不可以修改别人的数据','提示');
    end;
  end;

zfang

调试一下，看lk的值与 TSystemCore.Operator.Positions[0].PersonMember.ID 的值。

vagrant

怎样把LK的值转换为字符类型？

vagrant

lk.asstring ,这样应该没问题吧

zfang

取数据字段的值 用 这样的： FieldByName ('FZR').asstring;形式

vagrant

现在的问题是虽然可以正确判断，但两值不相等执行Jsdialogs.ShowMsg ('你不可以修改别人的数据','提示');后不应该保存的数据也保存了。好像Accept :=False;这个语句不起作用。

atiger

请问你把这端代码写到哪个事件上了？

zfang

加上sysutils.abort看看呢。

vagrant

procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
var
  lk :TDataField;
begin
  //Inherited;
  lk := TBizDataSetAction(DataNavigator.Buttons[0].Action ).CurrentDataSource.DataSet.FieldByName ('FZR');
  if ((Sender as TBizDataSetAction).ID =BizActnConsts.ActionDataSetSave ) then
  begin
    if lk.AsString  <> TSystemCore.Operator.Positions[0].PersonMember.ID then
    begin
      Accept :=False;
      Jsdialogs.ShowMsg ('你不可以修改别人的数据','提示');
    end;
  end;
end;

vagrant

这个事件里，现在可以正确判断了，但就是判断后不改执行的还是执行了