程式小技巧

2012-01-06

摘要:列舉

1.列舉

VB語法

Enum eBugStatus As Integer 
   Open 
   ReOpen 
   ClosedFixed 
   ClosedPending 
   ClosedUseAsIs 
   ClosedNotABug 
End Enum

2.判斷字串是否可以轉數字

Dim intFlag As Integer = -1
strFlag = Me.mdOdDBCmd.NullToString(Request.QueryString("strFlag"))

If IsNumeric(strFlag) Then
         intFlag = Convert.ToInt16(strFlag)
  End If