下列代码如何简化？请高手赐教，万分感谢！！！
DO   CASE
      CASE  L_类型="N"
         REPLACE  PICTURE   WITH   IIF(L_类型="N",'"@Z"',"")  && 数值型字段空值不显示
      CASE  L_类型="D"
        REPLACE  PICTURE   WITH   IIF(L_类型="D",'"@Z"',"｛｝")  && 日期型字段空值不显示
      CASE  L_类型="L"
        REPLACE  PICTURE   WITH   IIF(L_类型="L",'"@Z"',"（..）")  && 逻辑型字段空值不显示
ENDCASE   

[此贴子已经被作者于2024-12-24 19:15编辑过]

代码经测试没有问题，关键是如何简化。请高手赐教！

如何改写，请指点！