主题：零值取消显示问题

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