主题：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

运行如下：

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

去掉也是一样的提示   和一楼一样