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

改一下就好

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