主题：代码怎么写

还是不行，返回信息是
此主题相关图片如下：qq图片20180522130828.png

我这样测试正常，如果你的不能发送，请开通接口、充值费用后测试

 

http://www.winic.org/api/SendMessage.asp

 

'If e.DataCol.Name = "第二列" Then
    Dim s As String = ""
    For Each r As Row In Tables("表a").rows
        s & = r("第一列") & "," & r("第二列") & vbcrlf
    Next
    Dim url As String
    Dim http As Object
    url = "http://service.winic.org:8009/sys_port/gateway/?id=linhailun&pwd=lin123456&to=13827126079&content=" & UrlEncode(s) & "&time="
    msgbox(url)
    http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    MessageBox.Show("返回信息:" & http.responseText)
'End If

甜老师，发只您可见，不公开的贴怎么发？发短信的不知哪里问题，软件提示发送成功但收不到短信，平台也开通接口了

 

如果提示成功，但是无法发送，就是短信服务商的问题了，联系那里的服务商。

 

目前发短信，建议使用阿里云来做

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119481&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119436&skin=0

 

老师，当表格有数值好几行没出现时，我要转到另外的数据表里并统计它的行数，比如20的数值。意图是新建一个数据表有异常值时就导入到表并统计个数。比如显示20（8）
此主题相关图片如下：011.png

异常的逻辑是连续6行没相同的数值，和37楼逻辑是相反的其他一样。

 

无法理解你的逻辑。

 

1、上传具体项目测试；

 

2、举例说明要达到什么效果。

第一列的数值如果后6行（〉=6行）没出现这数值则导入c表，如列：导c表的数值是一行20（8），八行50（10），十行90（7）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a (2).table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb