以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框重复显示内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63993)
--  作者：一笑
--  发布时间：2015/2/3 10:14:00
--  文本框重复显示内容
在用户通讯窗口计时器中写入以下代码，希望在文本框控件中动态显示内容，现出现问题，文本框中按间隔时间重复叠加显示内容，该如何修改，谢谢！
Dim drs As List(of DataRow) = DataTables("信息表").Select("接收者 = \'" & _Username & "\' And 接收时间 Is Null ")
Dim js As WinForm.TextBox = e.Form.Controls("TextBox2")
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
--  作者：Bin
--  发布时间：2015/2/3 10:16:00
--  
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