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