主题：求助！！！

 自己电脑的问题，GetPY不会提示这个错误。

 你单独测试GetPY这个函数看会不会出错。

 如果提示6楼的错误，这样改。如果还有错，上传出错例子。

For Each dr As DataRow In drs                   '遍历所有行
    If dr.IsNull(Lm) = False Then
        py = GetPY(dr(Lm),True)                       '赋值py = 查询行查询列的简拼
        If dr(Lm).IndexOf(st)> -1 OrElse py.IndexOf(st) > -1 Then
            '如查询行查询列内容(或简拼)包含输入框内容,执行...
            If Ls.Contains(dr("_Identify")) = False Then    '如不包含则增加
                ls.Add(dr("_Identify"))
            End If
            If Lss.Contains(dr(Lm)) = False Then
                Lss.Add(dr(Lm))
            End If
           
        End If
    End If
Next

看8楼。