| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- QQClient.Send(NA ,msg ,True) 发不出信息 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98766) |
| -- 作者：foxtable666 -- 发布时间：2017/4/6 17:03:00 -- QQClient.Send(NA ,msg ,True) 发不出信息 求援！ Dim msg As String =" & USER.NAME & " & "请假,请审核,谢谢!"
发不出信息，不知为何，登录是成功的 我是想好友名从窗口控件取值，不知如何写发送信息的代码？ [此贴子已经被作者于2017/4/6 17:06:42编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/4/6 17:06:00 -- 可以打开聊天窗口吗？可以正常聊天吗？
代码改一改
Dim msg As String = USER.NAME & "请假,请审核,谢谢!" msgbox(NA) |
| -- 作者：foxtable666 -- 发布时间：2017/4/6 17:08:00 -- 可以打开聊天窗口吗？可以正常聊天 我改下再试，谢谢！ [此贴子已经被作者于2017/4/6 17:09:04编辑过]
|
| -- 作者：客人 -- 发布时间：2017/4/6 17:49:00 -- Dim msg As String = USER.NAME & "请假,请审核,谢谢!"
把代码改成以上好了，原因是好友格式应为如：生产部.林海 如单单是: 林海 则不行.我原来的Forms("申请批准事务管理").Controls("TextBox5").Value=林海 所以不行 现在NA = Forms("申请批准事务管理").Controls("TextBox6").Value & "." & Forms("申请批准事务管理").Controls("TextBox5").Value="生产部.林海" OK |