代码共享1: 创建DBF文件 并保存于C盘根目录下

代码共享1: 创建DBF文件 并保存于C盘根目录下<BR><BR>
<DIV >Public Function CreateTable(pFWS As esriCore.IFeatureWorkspace, _<BR>strName As String) As ITable<BR><BR>On Error GoTo EH<BR>If pFWS Is Nothing Then Exit Function<BR>Dim pField As IField<BR>Dim pFields As IFields<BR>Dim pFieldsEdit As IFieldsEdit<BR>Dim pFieldEdit As IFieldEdit<BR><BR>Set pFields = New Fields<BR>Set pFieldsEdit = pFields<BR>pFieldsEdit.FieldCount = 2<BR><BR>Set pField = New Field<BR>Set pFieldEdit = pField<BR>With pFieldEdit<BR>.Name = "OID"<BR>.AliasName = "FID"<BR>.Type = esriFieldTypeOID<BR>End With<BR>Set pFieldsEdit.Field(0) = pField<BR><BR>Set pField = New Field<BR>Set pFieldEdit = pField<BR>With pFieldEdit<BR>.Length = 30<BR>.Name = "OWner"<BR>.Type = esriFieldTypeString<BR>End With<BR>Set pFieldsEdit.Field(1) = pField<BR><BR>Set CreateTable = pFWS.CreateTable(strName, pFields, Nothing, Nothing, "")<BR><BR>Exit Function<BR>EH:<BR>MsgBox Err.Description, vbInformation, "createDatasetFeatureClass"<BR>End Function</DIV>

<P>要</P>
<P>顶住</P><img src="images/post/smile/dvbbs/em01.gif" />

不错