以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多值字段条件获取电话号码 出现未知编译错误，然后整个项目窗体都打不开了，重启项目才能打开？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174700)
--  作者：cnsjroom
--  发布时间：2022/1/27 9:28:00
--  多值字段条件获取电话号码 出现未知编译错误，然后整个项目窗体都打不开了，重启项目才能打开？

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

 

当前代码如下：

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

[此贴子已经被作者于2022/1/27 10:06:39编辑过]
--  作者：有点蓝
--  发布时间：2022/1/27 10:06:00
--  
把项目文件复制到其它目录打开，注意文件路径和文件名称不能有括号等特殊字符。然后打开项目看提示什么具体错误
--  作者：cnsjroom
--  发布时间：2022/1/27 10:11:00
--  回复：（有点蓝）把项目文件复制到其它目录打开，注意...

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

 

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

另外：

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

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

预期：以100个tel进行拆分，不满100个时，为一条数据，大于100时，以100个为单位，拆分成多条数据
--  作者：有点蓝
--  发布时间：2022/1/27 10:21:00
--  
dim tel as string = "1，2，3，4，5，6,........"
dim lst as new list(of string)
dim tels() as string = tel.split(",")
for i as integer = 0 to tels.length - 1  step 100
lst.clear
for j as integer = i to math.min(i+99,tels.length - 1)
lst.add(tels(j))
next
msgbox(string.join(",",lst.toarray))
next
--  作者：cnsjroom
--  发布时间：2022/1/27 11:08:00
--  回复：（有点蓝）dim tel as string = "1，2，3，4，5...

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

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

--  作者：有点蓝
--  发布时间：2022/1/27 11:18:00
--  
整个文件路径都不能有特殊符号，空格一起去掉

或者干脆把项目文件复制到D盘根目录打开试试