Foxtable(狐表)用户栏目专家坐堂 → 还是RICHTEXT的问题


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

主题:还是RICHTEXT的问题

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


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
还是RICHTEXT的问题  发帖心情 Post By:2018/8/19 11:59:00 [只看该作者]

请教老师,下面代码,打开窗口,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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110741 积分:563631 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2018/8/19 15:13:00 [只看该作者]

谢谢老师,另外一个问题

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

 

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

 

 


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110741 积分:563631 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/19 15:41:00 [只看该作者]

点击按钮重新加载table后,重新给richtextbox赋值第一行的数据

 回到顶部