以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]QQsever循环发送消息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119081)

--  作者:wxy2008977
--  发布时间:2018/5/17 12:19:00
--  [求助]QQsever循环发送消息

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180517121715.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180517121707.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180517121653.png
图片点击可在新窗口打开查看



我想 点击 BUTTON7 那个按钮之后 就把 B1 里的 消息 循环 用SendNotice 的方式  发给    用户表里的所有人 
,这个循环语句要怎么写

--  作者:有点甜
--  发布时间:2018/5/17 12:25:00
--  

For Each r As Row In Tables("用户").rows   
    QQServer.SendNotice(r("部门") & "." & r("姓名"), "abcdefg")   
Next


--  作者:有点甜
--  发布时间:2018/5/17 12:26:00
--  
For Each r As Row In Tables("用户").rows   
    QQServer.SendNotice(r("部门") & "." & r("姓名"), e.form.controls("TextBox1").Text)   
Next

--  作者:wxy2008977
--  发布时间:2018/5/17 13:14:00
--  
谢谢版主大大