- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问这个简化名称的方法错在哪里了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49315)
-- 发布时间：2014/4/15 22:16:00
-- 请问这个简化名称的方法错在哪里了？
\'原"单位"列较长,名称前面部分有"某省某市"等,这些固定部分长度为14字符.
\'现把这些前面较长单位名称进行简化,并且如果原长度为正好为14个字符,则简化为"XXXX"
\'如超过14个字符,则为删除原"单位"列的前14字符，保留后面的内容.
Dim Multi As String
For Each dr As Row In CurrentTable.Rows
multi =dr("单位")
If multi.Length = 14 ‘这里发生错误
dr("简化名称") = "XXXX"
Else
dr("简化名称") = multi.SubString(15)
End If
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:简化名称.table |
[此贴子已经被作者于2014-4-15 22:18:30编辑过]
-- 发布时间：2014/4/15 22:23:00
--
改一下就好
Dim Multi As String
For Each dr As Row In CurrentTable.Rows
multi =dr("单位")
If multi.Length <= 14 \'这里发生错误
dr("简化名称") = "XXXX"
Else
dr("简化名称") = multi.SubString(15)
End If
Next
-- 发布时间：2014/4/15 22:24:00
--
问题解决了
把上面的“14“、”15“改成“7”就可以了。