主题：零值取消显示问题

此主题相关图片如下：qq截图20170502151258.png

图中，未预付列是由收款合计减预付合计，用代码计算而得，代码如下：

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "收款合计","预付合计","入库合计","fa piao合计","返款合计"
       
        dr1("未预付") = val(dr1("收款合计")) - val(dr1("预付合计"))
        dr1("未入库") = val(dr1("预付合计")) - val(dr1("入库合计"))
        dr1("未收fa piao") = val(dr1("入库合计")) - val(dr1("fa piao合计"))
        dr1("未返款") = val(dr1("收款合计")) - val(dr1("返款合计"))
       
End Select

我想实现，如果未预付为零时，则不显示，可以实现吗，请各位老师帮忙。