主题：多值字段条件获取电话号码 出现未知编译错误，然后整个项目窗体都打不开了，重启项目才能打开？

多值字段条件获取电话号码  出现未知编译错误，然后整个项目窗体都打不开了，重启项目才能打开？

当前代码如下：

Dim br As Row=Tables("信息编辑_table1").Current

Dim tel As String
If br("发送人员") <>"" Then
    Dim filter As String = "1=2"
    For Each s As String In br("发送人员").split(",")
        filter = filter & " or [姓名] like '%" & s & "%' and 所在单位 = '" & _usergroup & "'"
    Next

tel = DataTables("干警信息").GetComboListString("电话",filter).replace("|",",")

Else If br("发送对象") <>"" Then
    Dim filter As String = "1=2"
    For Each s As String In br("发送对象").split(",")
        filter = filter & " or [身份属性] like '%" & s & "%' and 所在单位 = '" & _usergroup & "'"
    Next

tel = DataTables("干警信息").GetComboListString("电话",filter).replace("|",",")

Else If br("关注领域") <>"" Then
    Dim filter As String = "1=2"
    For Each s As String In br("关注领域").split(",")
        filter = filter & " or [关注领域] like '%" & s & "%'and 所在单位 = '" & _usergroup & "'"
    Next

tel = DataTables("干警信息").GetComboListString("电话",filter).replace("|",",")

End If
MessageBox.Show(tel)

对于得到的tel值格式为1，2，3，4，5，6…… 怎么实现个数统计

当达到100个的时候 就进行拆分  生成下一个tel值

预期：以100个tel进行拆分，不满100个时，为一条数据，大于100时，以100个为单位，拆分成多条数据

老师 重启项目基本可以解决

一楼中  如果将tel = DataTables("干警信息").GetComboListString("电话",filter).replace("|",",")
更改成：tel = DataTables("干警信息").GetComboListString("电话").replace("|",",")
不会提示未知编辑错误，老师有没有办法帮忙指导哈   因为这个filter又是必须要的，不然得到的电话值不是符合条件筛选的，将得到全部的电话值。

另外：

对于得到的tel值格式为1，2，3，4，5，6…… 怎么实现个数统计

当达到100个的时候 就进行拆分  生成下一个tel值

预期：以100个tel进行拆分，不满100个时，为一条数据，大于100时，以100个为单位，拆分成多条数据

老师  确定文件名和文件夹均为正常汉字  无特殊符号

有没有办法修正这个未知编译错误提示呢？之前是代码哪里有错误还可以直接提出错误提示，现在是代码错误直接只提示未知编译错误，然后就要靠人工一行行去查找代码了