主题：自动默认为0的函数如何写？

Dim sum As Double = 0
If dr IsNot Nothing
    sum = dr("件数")
End If
If dd IsNot Nothing
    sum = sum - dd("件数")
End If
If dd IsNot Nothing
    sum = sum - dc("件数")
End If

e.Form.Controls("label11").text = sum