kdhzch
路人甲
路人甲
  • 注册日期2015-09-17
  • 发帖数2
  • QQ
  • 铜币3枚
  • 威望1点
  • 贡献值0点
  • 银元0个
阅读:786回复:2

新手提问

楼主#
更多 发布于:2015-09-17 21:47
用GIS10.2地籍查重复点输入下面代码后提示错误999999怎么办求高手

Static d As Object
Static i As Long
Dim iDup As Integer
Dim sField
sField = [2]
If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
iDup = 1
Else
d.Add CStr(sField), 1
iDup = 0
End If
i = i + 1
喜欢0 评分0
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15947
  • QQ554730525
  • 铜币25339枚
  • 威望15364点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2015-09-18 10:37
错误代码只是知道执行函数的时候出错,你最好给出具体的错误提示,比如哪行代码出错的?
举报 回复(0) 喜欢(0)     评分
gis
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15947
  • QQ554730525
  • 铜币25339枚
  • 威望15364点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
2楼#
发布于:2015-09-18 10:38
要确定你有权限,而且你的路径最好不要有中文
举报 回复(0) 喜欢(0)     评分
游客

返回顶部