专家坐堂-文本框重复显示内容Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文本框重复显示内容  (http://foxtable.net/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