| |
Dim pdoc As IMxDocument
Dim pmap As IMap
Dim player As ILayer
Dim pflayer As IFeatureLayer
Dim pfclass As IFeatureClass
Dim ptable As ITable
Dim pcalc As ICalculator
Dim peditor As IEditor
Dim puid As New UID
Set pdoc = ThisDocument
Set pmap = pdoc.FocusMap
Set player = pdoc.SelectedLayer
Set pflayer = player
Set pfclass = pflayer.FeatureClass
Set ptable = pfclass
Set pcalc = New Calculator
puid = "esrieditor.editor"
Set peditor = Application.FindExtensionByCLSID(puid)
Dim i As String
Dim j As String
pcalc.field="S_NAME"
j = ptable.FindField("S_NAME")
i = StrConv(ptable.FindField("S_NAME"), vbUpperCase)
j = i
peditor.StartOperation
pcalc.Calculate
peditor.StopOperation ("calc")
|