【结】关于控制checkbox表现类型字段的问题

ptss

ok，知道原因了，谢谢了！结吧！

atiger

ok
说说啥原因呢？

shangxy

begin
         DataSetBZSJJ1.Edit;

    if Sender.FieldName='chk1' then
    begin

      DataSetBZSJJ1.fieldByName('chk2').AsInteger :=0;
       DataSetBZSJJ1.fieldByName('chk3').AsInteger :=0;


    end
     else
    if Sender.FieldName='chk2' then

      begin
             DataSetBZSJJ1.fieldByName('chk1').AsInteger :=0;
       DataSetBZSJJ1.fieldByName('chk3').AsInteger :=0;

    end
    else
        if Sender.FieldName='chk3' then

      begin
             DataSetBZSJJ1.fieldByName('chk2').AsInteger :=0;
       DataSetBZSJJ1.fieldByName('chk1').AsInteger :=0;
      end;



end;