2024年3月21日发(作者：)

'''

''' 添加字段别名

'''

'''

'''

Public Function CreateAliasName() As Integer

Dim DbConnection As OleDbConnection = New OleDbConnection(DbCon)

Try

If ExsitsTBL("SYS_TCZD") = 0 Then '0系统表不存在

Shpopen.c

MsgBox("系统表不存在！", , "警告")

Return 0

End If

()

Dim pWSF As IWorkspaceFactory = New AccessWorkspaceFactory

Dim pWS As IWorkspace

Dim pFWS As IFeatureWorkspace = omFile(n, 0)

pWS = pFWS

'Dim pFeatureDataset As IFeatureDataset

'pFeatureDataset = atureDataset(DataSetName)

Dim pFeatureClassContainer As IFeatureClassContainer

Dim pFeatureClass As IFeatureClass

Dim pFieldEdit As IClassSchemaEdit

pFeatureClassContainer = atureDataset(DataSetName)

For i As Integer = 0 To ount - 1

pFeatureClass = (i)

pFieldEdit = pFeatureClass

Dim tcmc As String = CType(pFeatureClass, IDataset).Name

For j As Integer = 0 To ount - 1

Dim zdmc As String = (j).Name

Dim ConSTR As String

Dim cmd As OleDbCommand

ConSTR = "SELECT [ZDBM] FROM SYS_TCZD where [TCMC] = '" + tcmc + "' And [ZDMC] = '" + zdmc + "'"

cmd = New OleDbCommand(ConSTR, DbConnection)

Dim zdbm As String = eScalar()

If zdbm Is Nothing Then

Continue For

Else

ieldAliasName(zdmc, )

End If

Next

Next

Catch ex As Exception

MsgBox(ng())

'MsgBox("图层已经存在，未能创建！", , "警告")

Finally

()

End Try

End Function