【结贴】checkbox 排他设置**

zhdkelly

我的数据表中有字段a1,a2,a3,a4，都设置成数字类型，表现形式为checkbox，通过代码控制它们之间的排他性，同一时间最多只能有一个处于选中状态，但是为什么保存以后4个都是选中状态。而且表现为灰色

zfang

哦，这个效果是在datagrid上吗？
应该是属性设置的问题。论坛里搜索一下吧，有答案。

zhdkelly

我是要在表单文档里面实现，现在需要在选中一个字段时，马上触发排他动作，但是做不到，必须离开焦点以后才触发

zfang

你是怎么做的呢？

zhdkelly

1.有9个字段设置成数字型，表现类型是checkbox，自动填充‘0’，打开表单文档时不显示checkbox

2.当填写其他字段信息后，可以显示为checkbox

3.现在需要对这一组checkbox进行排他选择，保存后所有字段都处于选中状态？？？

4.要实现排他选择应该怎样操作？？？

shangxy

你是怎么保证只能选择多个中的1个的？

zhdkelly

我为每个字段在数据集中建立了对应的数据字段，在数据字段的OnEnter中写下如下代码：

procedure TCSDLWJSQXX_INFO_1.SetWJLX(fieldName:string);
var
i : integer;
temp : string;
begin
WJLXFieldNames :=['WJLX_YD','WJLX_RQ','WJLX_PS',
                   'WJLX_SM','WJLX_DX','WJLX_QL',
                   'WJLX_FH','WJLX_GS','WJLX_QT'];
   DataSetDLWJSJJ.Edit;
  if DataSetDLWJSJJ.FieldByName(fieldName).AsInteger = 0 then
  begin
   for i:=0 to WJLXFieldNames.Length -1 do
   begin
     temp := variants.VarToStr(WJLXFieldNames.GetValue(i));
     if temp <> fieldName  then
        DataSetDLWJSJJ.FieldByName(temp).AsInteger := 0;
     end;
     DataSetDLWJSJJ.ApplyUpdates;
   end;
  end;


procedure TCSDLWJSQXX_INFO_1.FIELD_DLWJSJJ_WJLX_YDEnter(Sender: TDataField);
begin
SetWJLX('WJLX_YD');
end;
其他数据字段的OnEnter事件代码同上

jiahaiming

放一个datagrid，显示一下修改完成后数据集的值。

zhdkelly

数据库中这几个字段的值都是空，不是0也不是1，不明白为什么和会产生这样的结果

jiahaiming

if DataSetDLWJSJJ.FieldByName(fieldName).AsInteger = 0 then
这个似乎有问题吧！！！