Foxtable(狐表)用户栏目专家坐堂 → SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空?有没有办法修正呢?


  共有3466人关注过本帖平板打印复制链接

主题:SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空?有没有办法修正呢?

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
SendNotice传值正常SendNoticeFile SendNoticeImage 传值是空?有没有办法修正呢?  发帖心情 Post By:2022/1/29 17:35:00 [只看该作者]

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
图片点击可在新窗口打开查看

 回到顶部