- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空？有没有办法修正呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174759)
-- 发布时间：2022/1/29 17:35:00
-- SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空？有没有办法修正呢？
SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空？有没有办法修正呢？
当前代码如下：
Dim Products As List(Of String())
Products = DataTables("用户").GetValues("部门|姓名")
Dim t8 As WinForm.TextBox = e.Form.Controls("文本")
Dim t9 As WinForm.TextBox = e.Form.Controls("文件")
Dim t10 As WinForm.TextBox = e.Form.Controls("图片")
For Each Product As String() In Products
If t8.text<>"" Then
QQServer.SendNotice(Product(0) & "." & Product(1) ,"{!}" & t8.text)
Else If t9.text<>"" Then
QQServer.SendNoticeFile(Product(0) & "." & Product(1) ,"{!}" & t9.text)
MessageBox.Show(Product(0) & "." & Product(1) ,"{!}" & t9.text)
Else If t10.text<>"" Then
QQServer.SendNoticeImage(Product(0) & "." & Product(1) ,"{!}" & t10.text)
End If
Next
运行如下：
此主题相关图片如下：21.png
-- 发布时间：2022/1/29 17:42:00
--
发送文件和图片，去掉{!}
-- 发布时间：2022/1/29 17:49:00
-- 回复：（有点蓝）发送文件和图片，去掉{!}QQServer.Se...
Dim Products As List(Of String())
Products = DataTables("用户").GetValues("部门|姓名")
Dim t8 As WinForm.TextBox = e.Form.Controls("文本")
Dim t9 As WinForm.TextBox = e.Form.Controls("文件")
Dim t10 As WinForm.TextBox = e.Form.Controls("图片")
For Each Product As String() In Products
If t8.text<>"" Then
QQServer.SendNotice(Product(0) & "." & Product(1) ,"{!}" & t8.text)
Else If t9.text<>"" Then
QQServer.SendNoticeFile(Product(0) & "." & Product(1) ,t9.text)
MessageBox.Show(Product(0) & "." & Product(1) ,t9.text)
Else If t10.text<>"" Then
QQServer.SendNoticeImage(Product(0) & "." & Product(1) ,t10.text)
End If
Next
去掉也是一样的提示 和一楼一样
-- 发布时间：2022/1/29 18:49:00
--
我看不懂这个问题