Select Case tipo Case dbBigInt ris = "dbBigInt" allineamento = 2 Case dbBinary ris = "dbBinary" Num_Text_Altro = 20 Case dbBoolean ris = "dbBoolean" allineamento = 3 Num_Text_Altro = 3 Case dbByte ris = "dbByte" Num_Text_Altro = 20 Case dbChar ris = "dbChar" Num_Text_Altro = 2 Case dbCurrency ris = "dbCurrency" allineamento = 2 Case dbDate ris = "dbDate" allineamento = 3 Num_Text_Altro = 4 Case dbDecimal ris = "dbDecimal" allineamento = 2 Case dbDouble ris = "dbDouble" allineamento = 2 Case dbFloat ris = "dbFloat" allineamento = 2 Case dbGUID ris = "dbGUID" Num_Text_Altro = 20 Case dbInteger ris = "dbInteger" allineamento = 2 Case dbLong ris = "dbLong" allineamento = 2 Case dbLongBinary ris = "dbLongBinary" Num_Text_Altro = 20 Case dbMemo ris = "dbMemo" Num_Text_Altro = 6 Case dbNumeric ris = "dbNumeric" allineamento = 2 Case dbSingle ris = "dbSingle" allineamento = 2 Case dbText ris = "dbText" Num_Text_Altro = 2 Case dbTime ris = "dbTime" allineamento = 3 Num_Text_Altro = 5 Case dbTimeStamp ris = "dbTimeStamp" allineamento = 3 Num_Text_Altro = 5 Case dbVarBinary ris = "dbVarBinary" Num_Text_Altro = 20 End Select |