Foxtable(狐表)用户栏目专家坐堂 → 文本框重复显示内容


  共有2251人关注过本帖树形打印复制链接

主题:文本框重复显示内容

帅哥哟,离线,有人找我吗?
一笑
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
文本框重复显示内容  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部