1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
With MaTableIndex
.Name = NomTable
With .Columns
.Append "NumeroDevisTmp", adInteger
.Append "RefTmp", adWChar, 13
.Append "DesignationTmp", adWChar, 254
.Append "QuantiteTmp", adCurrency
.Append "UniteTmp", adWChar, 2
.Append "PrixUnitaireTmp", adCurrency
.Append "TotalTmp", adCurrency
.Append "RemiseLigneTmp", adCurrency
.Append "TotalRremiseTmp", adCurrency
.Append "TauxTvaTmp", adCurrency
.Append "Type", adWChar, 1
.Append "NumeroLigneTmp", adInteger
End With
End With
Cat.Tables.Append MaTableIndex |
Partager