AO入门篇：《创建一个dbf文件 》（Create a new dBASE table ）

createDBF(strName

, _
strFolder

, _

pFields

IFields)

ITable

EH

pFWS

IFeatureWorkspace

pWorkspaceFactory

IWorkspaceFactory

fs as object

pFieldsEdit

IFieldsEdit

pFieldEdit

IFieldEdit

pField

IField

pWorkspaceFactory =

ShapefileWorkspaceFactory

fs = CreateObject("Scripting.FileSystemObject")

fs.FolderExists(strFolder)

MsgBox "Folder does not exist: " & vbCr & strFolder

pFWS = pWorkspaceFactory.OpenFromFile(strFolder, 0)

pFields

pFields =

Fields

pFieldsEdit = pFields
pFieldsEdit.FieldCount = 1

pField =

Field

pFieldEdit = pField

pFieldEdit
.Length = 30
.Name = "TextField"
.Type = esriFieldTypeString

pFieldsEdit.Field(0) = pField

createDBF = pFWS.CreateTable(strName, pFields,

,

, "")

EH:
MsgBox Err.Description, vbInformation, "createDBF"

使用注意：[/code]

'参数strName和strFolder是必需的。
'要注意在这个方法中，pFieldsEdit.FieldCount必须和后面添加的field数目相同，否则会出现错误。
'在一些项目中，会要求对已有的属性表进行统计分析，生成统计结果，如果要求是dbf格式，
'大家可以用这个方法生成统计结果表。
'第一、第二个参数是必须的。同样，大家可以根据需要，改写此方法，参数中可以传入如FieldCount
'等在调用此方法前，已经经过计算得到的一些值。