867Friend Shared Function VTType(ByVal VarName As Object) As VT 869Return VT.Variant 875Friend Shared Function VTFromComType(ByVal typ As System.Type) As VT 877Return VT.Variant 883Return CType(VT.Array Or VT.Variant, VT) 886Dim Result As VT = VTFromComType(typ) 887If (Result And VT.Array) <> 0 Then 889Return CType(VT.Array Or VT.Variant, VT) 891Return CType(Result Or VT.Array, VT) 898Return VT.Empty 903Return VT.String 905Return VT.Integer 907Return VT.Short 909Return VT.Long 911Return VT.Single 913Return VT.Double 915Return VT.Date 917Return VT.Boolean 919Return VT.Decimal 921Return VT.Byte 923Return VT.Char 925Return VT.DBNull 929Return VT.Error 932Return VT.Error 936Return VT.Structure 939Return VT.Variant 982Dim vtype As VT 988If (vtype And VT.Array) = 0 Then 1075m_bw.Write(CShort(VT.String)) 1135m_bw.Write(VT.Date) 1154m_bw.Write(VT.Short) 1172m_bw.Write(VT.Integer) 1190m_bw.Write(VT.Long) 1208m_bw.Write(VT.Byte) 1226m_bw.Write(VT.Char) 1244m_bw.Write(VT.Single) 1262m_bw.Write(VT.Double) 1273m_bw.Write(VT.Empty) 1288m_bw.Write(VT.Boolean) 1311m_bw.Write(VT.Decimal) 1329m_bw.Write(CShort(VT.Decimal)) ' Decimal contains the vtype as first 2 bytes 1349m_bw.Write(VT.Currency) 1377Friend Function ComTypeFromVT(ByVal vtype As VT) As System.Type 1379Case VT.Variant 1381Case VT.Empty 1383Case VT.DBNull 1385Case VT.Short 1387Case VT.Integer 1389Case VT.Long 1391Case VT.Single 1393Case VT.Double 1395Case VT.Date 1397Case VT.String 1399Case VT.Error 1401Case VT.Boolean 1403Case VT.Decimal 1405Case VT.Byte 1407Case VT.Char 1682Dim vtype As VT 1724If vtype = VT.String Then 1788Case VT.DBNull, VT.Empty 1791Case VT.Byte '1 byte 1796Case VT.Short '2 bytes 1801Case VT.Boolean '2 bytes 1812Case VT.Integer '4 Bytes 1817Case VT.Long '8 Bytes 1822Case VT.Single '4 bytes 1827Case VT.Error '4 bytes 1830Case VT.Double '8 bytes 1835Case VT.Date '8 bytes 1840Case VT.Decimal '8 bytes 1845Case VT.String 1904Case VT.Char '2 bytes 1909Case VT.Variant 1912Case VT.Structure 1916If (vtype And VT.Array) <> 0 Then 1923vtype = vtype Xor VT.Array 1925If vtype = VT.Variant Then 1929If vtype > VT.Variant AndAlso (vtype <> VT.Byte AndAlso vtype <> VT.Decimal AndAlso vtype <> VT.Char AndAlso vtype <> VT.Long) Then 1941Dim vtype As VT 1984Case VT.DBNull, VT.Empty 1986Case VT.Byte '1 byte 1989Case VT.Short '2 bytes 1992Case VT.Boolean '2 bytes 1995Case VT.Integer '4 Bytes 1998Case VT.Long '8 Bytes 2001Case VT.Single '4 bytes 2004Case VT.Error '4 bytes 2006Case VT.Double '8 bytes 2009Case VT.Date '8 bytes 2012Case VT.Decimal '8 bytes 2017Case VT.String 2023Case VT.Char 2026Case VT.Variant 2034Case VT.Structure 2043If (vtype And VT.Array) <> 0 Then 2049vtype = vtype Xor VT.Array 2051If vtype = VT.Variant Then 2055If vtype > VT.Variant AndAlso (vtype <> VT.Byte AndAlso vtype <> VT.Decimal AndAlso vtype <> VT.Char AndAlso vtype <> VT.Long) Then 2078Private Function GetByteLength(ByVal vtype As VT) As Integer 2080Case VT.Byte '1 byte 2082Case VT.Short '2 bytes 2084Case VT.Integer '4 Bytes 2086Case VT.Long '8 Bytes 2088Case VT.Single '4 bytes 2090Case VT.Double '8 bytes

197Dim vtype As VT 203vtype = CType(m_br.ReadInt16(), VT) 210vtype = VT.String 212vtype = VT.Short 214vtype = VT.Integer 216vtype = VT.Long 218vtype = VT.Byte 220vtype = VT.Date 222vtype = VT.Double 224vtype = VT.Single 226vtype = VT.Decimal 228vtype = VT.Boolean 230vtype = VT.Char 233vtype = VT.Structure 235vtype = VT.Variant 'To force an exception later 238vtype = VT.Variant 'To force an exception later 242If (vtype And VT.Array) <> 0 Then 244Dim v As VT = vtype Xor VT.Array 248If vtype = VT.String Then 250ElseIf vtype = VT.Short Then 252ElseIf vtype = VT.Integer Then 254ElseIf vtype = VT.Long Then 256ElseIf vtype = VT.Byte Then 258ElseIf vtype = VT.Date Then 260ElseIf vtype = VT.Double Then 262ElseIf vtype = VT.Single Then 264ElseIf vtype = VT.Currency Then 266ElseIf vtype = VT.Decimal Then 268ElseIf vtype = VT.Boolean Then 270ElseIf vtype = VT.Char Then 272ElseIf vtype = VT.Structure Then 277ElseIf vtype = VT.DBNull AndAlso ContainedInVariant Then 279ElseIf vtype = VT.DBNull Then 281ElseIf vtype = VT.Empty Then 283ElseIf vtype = VT.Currency Then 492PutShort(RecordNumber, VT.DBNull, False)