2023年12月18日发(作者：)

ount = 6 'Create text Fields Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Name = "SmallInteger" .Type = esriFieldTypeSmallInteger End With Set (0) = pField Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Name = "Integer" .Type = esriFieldTypeInteger End With Set (1) = pField Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Name = "Single" .Type = esriFieldTypeSingle End With Set (2) = pField Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Precision = 5 .Scale = 5 .Name = "Double" .Type = esriFieldTypeDouble End With Set (3) = pField Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Length = 30 .Name = "String" .Type = esriFieldTypeString End With

Set (4) = pField Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Name = "Date" .Type = esriFieldTypeDate End With Set (5) = pField Set createDBF = Table(sFileName, pFields,Nothing, Nothing, "") sDir = Dir(sFilePath & sFileName & ".dbf") If (sDir <> "") Then MsgBox ("Build　Success") Else MsgBox ("Build Fail") End If Exit FunctionErrorHandler: MsgBox ptionEnd FunctionPrivate Sub UIButtonControl1_Click() Dim pVBProject As VBProject Dim pTable As ITableOn Error GoTo ErrorHandler: Set pVBProject = ect 'Dont include .dbf extension Set pTable = CreateDBF (me & "........" & "data","MyDBFFile") Exit SubErrorHandler: MsgBox ptionEnd Sub