換成民國年

  '換成民國年
            Dim YrMn = Left(strLSYrMn, 4) - 1911 & strLSYrMn.Substring(4, 2)

            If YrMn.Length = 4 Then
                YrMn = YrMn.PadLeft(YrMn.Length + 1, Char.Parse(" "))
            End If

迴圈開control ID

For i = 2 To 17
                Dim ltemp As Label
                ltemp = DirectCast(FindControl("Label" & i), Label)
                ltemp.Text = "0"
            Next

            For i = 0 To sMTPLD.Length - 1
                DirectCast(FindControl("TextBox" & i + 1), TextBox).Text = ""
                DirectCast(FindControl("TextBox" & i + 17), TextBox).Text = ""
                DirectCast(FindControl("DetailHyperLink" & i + 1), HyperLink).NavigateUrl = ""
            Next