在线等待！！在报表的时候，怎样在其中加入对号(100分)

在报表的时候，当一个条件满足时，我想在一个格中打对号，不知道怎样插入！！着急啊！！

用什么报表工具啊？

用的Access

抱歉，没用过。半角字符不行，全角字符应当可以吧

那怎么把ASCII码转换成字符？

char(ASCII码)；

实在不行，可以用图片，条件满足就打，否则不打

While not cdgl_Data.clby_ADOTable.Eofdo
begin
xlSheet.Cells.Item[i,1] :=
xlSheet.Cells.Item[i,2] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_BYSJ').AsString;
xlSheet.Cells.Item[i,3] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_XSLC').AsString;
xlSheet.Cells.Item[i,4] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_BYZL').AsString;
xlSheet.Cells.Item[i,5] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_SSDW').AsString;
xlSheet.Cells.Item[i,6] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_ZYWT').AsString;
xlSheet.Cells.Item[i,7] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_GHBJ').AsString;
xlSheet.Cells.Item[i,8] := cdgl_Data.clby_ADOTable.Fieldbyname('JTY_CDGL_CLBYDJ_YSRY').AsString;
//xlSheet.Cells.Item[i,9] := cdgl_Data.bydj_ADOTable.Fieldbyname('JTY_CDGL_CLXH_CZJE').AsString;
cdgl_Data.clby_ADOTable.Next;
i := i + 1;
end;
这是报表的程序，我想在xlSheet.Cells.Item[i,1] := 等号这里加上程序，让在报表的 时候显示对号，该怎样啊？char不行啊，没有值显示！！

我想这样吧,你在word中找到对号后,复制并拈贴到表中了,就OK了