请问这个简化名称的方法错在哪里了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问这个简化名称的方法错在哪里了？

共有4888人关注过本帖树形打印复制链接主题：请问这个简化名称的方法错在哪里了？

gzdw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：3351 威望：0 精华：0 注册：2011/12/22 17:52:00

请问这个简化名称的方法错在哪里了？ 发帖心情

Post By：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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:简化名称.table

[此贴子已经被作者于2014-4-15 22:18:30编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

gzdw

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：3351 威望：0 精华：0 注册：2011/12/22 17:52:00

Post By：2014/4/15 22:24:00 [只看该作者]

问题解决了

把上面的“14“、”15“改成“7”就可以了。

下一主题 >> << 上一主题

主题：请问这个简化名称的方法错在哪里了？