我在Arcmap里添加了一个Access数据库的一个数据表,我想实现将表里的-W字段每一行的值除以1000然后赋给新建字段-W1:
'计算-W1字段,及循环表内容的每一行计算
Dim Index_W As Long '现在-W1字段的索引号
Dim IndexW As Long '-W字段的索引号
Index_W = pFields.FindField("-W1") '找到现在-W1的索引号
IndexW = pFields.FindField("-W") '找到-W的索引号
Dim pCursor As ICursor
Dim pRow As IRow
Set pCursor = pTable.Update(Nothing, False)
Set pRow = pCursor.NextRow
Do Until pRow Is Nothing
pCursor.UpdateRow pRow
pRow.Value(Index_W) = pRow.Value (IndexW) / 1000
pRow.Store
Set pRow = pCursor.NextRow
Loop
pRow.Store这句通不过的啊,提示参数不足,期待是1!
我试了其他的也不行的!
哪里出错了啊??
'计算-W1字段,及循环表内容的每一行计算
Dim Index_W As Long '现在-W1字段的索引号
Dim IndexW As Long '-W字段的索引号
Index_W = pFields.FindField("-W1") '找到现在-W1的索引号
IndexW = pFields.FindField("-W") '找到-W的索引号
Dim pCursor As ICursor
Dim pRow As IRow
Set pCursor = pTable.Update(Nothing, False)
Set pRow = pCursor.NextRow
Do Until pRow Is Nothing
pCursor.UpdateRow pRow
pRow.Value(Index_W) = pRow.Value (IndexW) / 1000
pRow.Store
Set pRow = pCursor.NextRow
Loop
pRow.Store这句通不过的啊,提示参数不足,期待是1!
我试了其他的也不行的!
哪里出错了啊??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货