写了一个报表,要求当某行中的Memo18的值为'BOM'时,整行(Memo17~Memo24)的填充背景色FillColor:=clSilver
这个功能该怎么写?

解决方案 »

  1.   

    if [qry1."login_name"] = 'BOM' then
    begin
    memo1.fillcolor := clred;
    end
    else
    memo1.fillcolor := clwhite;  
    在MEMO18的(OnBeforePrint)参考以上代码写代码
      

  2.   

    预览出错:
    Identifier experted but '''' found.
    改了很久,确定代码出在这一句上面:if [qryPRINT1."U_gy"]='BOM' then
    双引号换单引号、换成[RMDBDataSet1."U_gy"]等,都没用。怎么回事呢?
      

  3.   

    直接写 if (Memo18.Text='BOM') then 
      

  4.   

    选择所有Memo,从对象查看器中的Highlight添加条件,添加条件时选择“字段”,然后输入你的特定值,然后修改背景色。