在用户通讯窗口计时器中写入以下代码,希望在文本框控件中动态显示内容,现出现问题,文本框中按间隔时间重复叠加显示内容,该如何修改,谢谢!
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