datatable item相加

大家维护过这么神奇的代码吗？谁给个解药给我？
-------------
討論寫法,真是有趣!!
If Not dr Is Nothing Then
If dr.Tables.Count > 0 Then
If dr.Tables(0).Rows.Count > 0 Then
'do nothing
Query_Price = Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(0)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(0))))
Query_Price = Query_Price + Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(1)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(1))))
Else
Query_Price = 0
End If
Else
Query_Price = 0
End If
Else
Query_Price = 0
End If
-----
縮減過:
Query_Price = 0
If dr Isnot Nothing andalso dr.Tables.Count>0 andalso dr.Tables(0).Rows.Count > 0 Then
Query_Price = Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(0)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(0))))
Query_Price = Query_Price + Convert.ToDecimal(IIf(IsDBNull(dr.Tables(0).Rows(0).Item(1)), 0, Convert.ToDecimal(dr.Tables(0).Rows(0).Item(1))))
End If