1.文本字段Place
步骤1:新建NewPlace
步骤2:右键公式字段,编写公式内容
if(isnull({DT_SalRpt_Packing.Place}) or {DT_SalRpt_Packing.Place}='')
then ' '
else {DT_SalRpt_Packing.Place}
2.日期字段DateDelivery
步骤1:新建一个NewDateDelivery
步骤2:右键公式字段,编写公式内容
Local DateTimeVar x:=CDate ('1900-01-01');
Local DateTimeVar y:=CDate ({DT_SalRpt_ShipmentPlan.DateDelivery});
Local StringVar z:="";
if(isnull({DT_SalRpt_ShipmentPlan.DateDelivery}) or CStr ({DT_SalRpt_ShipmentPlan.DateDelivery})='')
then
z:='无'
else
if (x<>y)
then
z:=ToText(CDate({DT_SalRpt_ShipmentPlan.DateDelivery}),"yyyy-MM-dd")
else
z:='无'
步骤3:退拽公式字段到报表中,右键——“设置对象格式”——“公式”——“显示字符串”
编写如下内容
ToText(CDate({DT_SalRpt_Packing.DateDelivery}),"yyyy-MM-dd");