mapgis67二次开发问题

a2025695222

为什么mapgis67使用添加区函数时老是失败。（VB）
如下：
Private Sub Command1 ( )
Dim reg as Reg_Area
set reg = CreateObject("MapGisBasCOm1.Reg_Area")
Dim reg1 as Reg_Area
set reg1 = CreateObject("MapGisBasCOm1.Reg_Area")
Dim lst as New IDList
Dim rdat as New  LONGList
Dim reg_Info as NEW Reg_Info
Dim rtl as Integer
Dim regNo as Long
reg.load "D:\1.wp"
lst = reg.GetAllExistNo()
For i = 0 to lst.count -1
rtl = reg.Get(lst.item(i),rdat,reg_Info)
regNo = reg1.Append(rdat,reg_Info)            '这里regNo总是等于0，求教为什么这个函数不起作用？
reg1.save "D:\2.wp"
NEXT
End Sub

wjabu

帮不了你{:soso_e100:}

hwl1123

VB全忘了...