大哥大姐们，小妹有一个关于返回类型的问题。请赐教！！

Question

添加一个对照函数Public Function FieldType(intType As Integer) As String   Select Case intType
      Case adChar
         FieldType = "adChar"
      Case adVarChar
         FieldType = "adVarChar"
      Case adSmallInt
         FieldType = "adSmallInt"
      Case adUnsignedTinyInt
         FieldType = "adUnsignedTinyInt"
      Case adDBTimeStamp
         FieldType = "adDBTimeStamp"
      Case ……   End SelectEnd Function

Answer 1

把我写的一个函数放在这儿：Public Function GetFieldType(ByVal ntype As Integer) As Byte
    '返回字串的类型 0--文字   1--數字   2--日期 3--其他
    'nType  = field object 's type
    Dim nRet As Byte
    Select Case ntype
      Case adBigInt:   nRet = 1
      Case adBoolean:   nRet = 1
      Case adBSTR:      nRet = 0
      Case adChar:      nRet = 0
      Case adCurrency:  nRet = 1
      Case adDate:      nRet = 2
      Case adDBDate:    nRet = 2
      Case adDBTime:    nRet = 2
      Case adDBTimeStamp: nRet = 2
      Case adDouble:    nRet = 1
      Case adInteger:   nRet = 1
      Case adLongVarChar: nRet = 0
      Case adNumeric:   nRet = 1
      Case adSingle:    nRet = 1
      Case adSmallInt:  nRet = 1
      Case adTinyInt:   nRet = 1
      Case adUnsignedBigInt: nRet = 1
      Case adUnsignedSmallInt: nRet = 1
      Case adUnsignedTinyInt:   nRet = 1
      Case adVarChar:   nRet = 0
      Case adVarWChar:  nRet = 0
      Case adWChar:     nRet = 0
      Case Else:    nRet = 3
      
    End Select
    
    GetFieldType = nRetEnd Function

Answer 2

Public Function GetFieldTypeName(ByVal f As Field) As String
    Select Case f.Type
        Case DataTypeEnum.adVarChar
            GetFieldTypeName = "varchar(" & f.DefinedSize & ")"
        Case DataTypeEnum.adChar
            GetFieldTypeName = "char(" & f.DefinedSize & ")"
        Case DataTypeEnum.adVarWChar
            GetFieldTypeName = "nvarchar(" & f.DefinedSize & ")"
    End Select
End Function