Dim drs As List(of DataRow) = DataTables("信息表").Select("接收者 = '" & _Username & "' And 接收时间 Is Null ")
Dim js As WinForm.TextBox = e.Form.Controls("TextBox2")
js.Value = nothing
If drs.Count > 0 Then
For Each dr As DataRow In drs
str2 = dr("发送时间") & vbcrlf & dr("发送者") & ":" & vbcrlf & dr("内容") & vbcrlf & vbcrlf
js.Value & = str2
Next
End If