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

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

当前代码如下：

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个为单位，拆分成多条数据