【搞定】关于选择checkbox的填充问题？**

ccseasy

某字段数据类型是字符串型，表现类型是checkbox
希望将checkbox选中的时候，能向数据表中插入某个确定的字符串而不是true
因为要和老数据统一以便于查询
问下如何做到？

aPanther

用checkbox没有方案，做不到。

你可以不用 checkbox ，可以使用字段的查找属性，使用枚举。

ccseasy

但是使用checkbox是必须的
有没有折中的做法比如用临时字段录入数据？

atiger

呵呵，对，楼主说的方法，就是
1、用临时字段设置为checkbox表现给最终用户，隐藏实际的字段，
2、在打开数据集的时候根据实际字段的值给临时字段赋值，
3、在保存的时候再根据临时字段给实际的字段赋值

aPanther

还有个方法：
procedure TYWXX1.DataSetBZSJJ1SetFieldText(DataSet: TDataSet; Field: TDataField; const Text: string);
begin
  if (Field <> nil) and (Field.FieldName = 'xxx') then
  begin
    if Text = '0' then
      Field.AsString := '否'
    else if Text = '1' then
      Field.AsString := '是';
  end;
end;

procedure TYWXX1.DataSetBZSJJ1GetFieldText(DataSet: TDataSet; Field: TDataField; var Text: string; DisplayText: Boolean);
begin
  if (Field <> nil) and (Field.FieldName = 'xxx') then
  begin
    if Field.AsString = '否' then
      Text := '0'
    else if Field.AsString = '是' then
      Text := '1';
  end;
end;

jiahaiminghr

楼主，还有问题吗？

ccseasy

收到
搞定
多谢