以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  还是RICHTEXT的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123612)
--  作者：douglas738888
--  发布时间：2018/8/19 11:59:00
--  还是RICHTEXT的问题

请教老师，下面代码，打开窗口，richtextbox的显示是正常的，如果在窗口不关闭的情况下，如果通过按钮重新加载table后，如果没有符合条件的行（空行）richtextbox显示的是上一次current行的内容，而不是空值

这种情况如何解决

 

currentchanged

Dim rtxt1 = Forms("窗口1").Controls("Panel6").basecontrol.Controls("mytxt11")
If Forms("窗口1").Opened Then
    If e.Table.Current Is Nothing Then
        Return
        rtxt1.Text = e.Table.Current("送审意见") = Nothing
    Else
        rtxt1.Text = e.Table.Current("送审意见")
        SetLineSpace(rtxt1, 400)
    End If
End If

[此贴子已经被作者于2018/8/19 14:45:16编辑过]
--  作者：有点蓝
--  发布时间：2018/8/19 14:39:00
--  
Dim rtxt1 = Forms("内会纪要审批").Controls("Panel6").basecontrol.Controls("mytxt11")
If Forms("窗口1").Opened Then
    If e.Table.Current Is Nothing Then
        rtxt1.Text = “”
    Else
        rtxt1.Text = e.Table.Current("送审意见")
        SetLineSpace(rtxt1, 400)
    End If
End If
--  作者：douglas738888
--  发布时间：2018/8/19 15:13:00
--  

谢谢老师，另外一个问题

问题是这样的：如果首次打开窗口，richtextbox显示和current行都正常，如果根据时间条件，点击按钮重新加载table后（空行），这时richtextbox是空值了，如果重新加载的不是空行，这时richtextbox又不显示任何内容了，

 

除非，关闭窗口，重新打开窗口，重新触发窗口afterload里面的代码，才能根据筛选条件richtextbox正常显示内容。      用timeticker也不行

 

 
--  作者：有点蓝
--  发布时间：2018/8/19 15:41:00
--  
点击按钮重新加载table后，重新给richtextbox赋值第一行的数据