VB中case用法
'' Select Case .Process
'' Case "AOI"
'' varData(0, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
'' varData(0, 0, 1) = .WrkStation
'' Case "ICTATE"
'' varData(1, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
'' varData(1, 0, 1) = .WrkStation
'' Case "FI"
'' varData(2, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
'' varData(2, 0, 1) = .WrkStation
'' Case "FCT"
'' varData(0, 1, 0) = IIf(.GdNg = "Y", "Pass", "NG")
'' varData(0, 0, 1) = .WrkStation
'' End Select