無景

@判斷是否有找到此欄位

's=Start / e=End  
Private Function AddNumber(ByVal a As ArrayList, ByVal s As Integer, ByVal e As Integer) As Double
        Dim num As New ArrayList
        Dim txt As TextBox

        For i As Integer = s To e
            txt = Me.Master.FindControl("ContentPlaceHolder1").FindControl(a(i))
            If Not txt Is Nothing Then '如果有找到此欄位
                If Not String.IsNullOrEmpty(txt.Text.Trim) Then '把此欄位值加入num
                    num.Add(txt.Text.Trim)
                End If
            End If
        Next

        Dim result As Double = MathAdd(num)
        Return result
    End Function

 

@

Private Function MathAdd(ByVal arry As ArrayList) As Double

        Dim sum As Double = 0
        For Each ary As String In arry

            sum += Convert.ToDouble(ary)

        Next

        Return sum

    End Function