【结】表格文档checkBox单选如何实现？

didi0225

如图是两字段 整形 表现为checkbox
如何让它们单选
如何是在业务信息的数据集上的字段编辑器里做OnClik判断,但在里面写的代码实现不了.
代码如下
procedure TXJCFF_BZQRJL.FIELD_BZQRJL_RYYQ_SClick(Sender: TDataField);
begin //人员要求   是
  if DataSetBZQRJL.FieldByName('RYYQ_S').AsInteger=1 then
  begin
     DataSetBZQRJL.Edit;
     DataSetBZQRJL.FieldByName('RYYQ_F').AsInteger:=0;
  end;
end;

procedure TXJCFF_BZQRJL.FIELD_BZQRJL_RYYQ_FClick(Sender: TDataField);
begin //人员要求  否
  if DataSetBZQRJL.FieldByName('RYYQ_F').AsInteger=1 then
  begin
     DataSetBZQRJL.Edit;
     DataSetBZQRJL.FieldByName('RYYQ_S').AsInteger:=0;
  end;
end;

atiger

楼主可以直接用RadioButton
参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=21969

zfang

个人建议你使用控件：radiobutton，然后在他的事件上对数据集的相关字段做代码维护。

didi0225

在表格文档里镶入控件打印预览的时候是看不到的吧

zfang

打印预览时可以看到嵌入的控件的，表格文档属性上有一个选项的，你勾上就行了。

didi0225

看到了


  一楼是BUG么,为什么行不通

zfang

代码有执行到么？（猜测：应该不好实现）

didi0225

procedure TXJCFF_BZQRJL.FIELD_BZQRJL_RYYQ_FEnter(Sender: TDataField);
begin //人员要求   否
     DataSetBZQRJL.Edit;
     DataSetBZQRJL.FieldByName('RYYQ_S').AsInteger:=0;
end;

procedure TXJCFF_BZQRJL.FIELD_BZQRJL_RYYQ_SEnter(Sender: TDataField);
begin //人员要求   是
  DataSetBZQRJL.Edit;
  DataSetBZQRJL.FieldByName('RYYQ_F').AsInteger:=0;
end;

用这个方法实现了
还是不想用控件,因为控制起来麻烦

didi0225

还有个问题是
Sheetdoclib.TSheetdoclib.CopySheettoExcel(DocView2,strDir);  
DOCVIEW导到EXCEL的时候 数据类型整形 表现类型为 CHECKBOX的数据没有显示到EXCEL去啊？

zfang

是导不出来的。