【结贴】k如图，如何统计true的个数**

xhsoft

jjh

shangxy

。。。

xhsoft

怎么了不明白吗
就是统计打勾的有多少个

shangxy

可以设置一个计算字段，然后用OnCalcField时间根据计算结果对value参数赋值就可以了。

xhsoft

OnCalcField在这个事件中写什么，这里不太明白

shangxy

procedure TYWXX3.FIELD_BZSJJ1_JSZD1CalcField(Field: TBizField; var Value: Variant);
var i,j:integer;
begin
  j:=0;
   for i:=0 to DataSetBZSJJ1.Fields.Count-1 do
   begin
    if  DataSetBZSJJ1.Fields.AsString ='a' then
    j :=j+1;
   end;
   value :=SysUtils.intTostr(j);
end;

xhsoft

var i,j:integer;
begin
  j:=0;
   for i:=0 to DataSetDDCXSJJ.Fields.Count-1 do
   begin
    if  DataSetDDCXSJJ.Fields.AsString ='true' then
    j :=j+1;
   end;
   value :=SysUtils.intTostr(j);
end;

为什么出来的还是0

shangxy

你数据库里存储的是字符串True么？

shangxy

你跟一下DataSetDDCXSJJ.Fields.AsString值都是什么？

xhsoft

是呀