以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  刷新后加载树出现问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108845)
--  作者：aza520
--  发布时间：2017/10/30 20:47:00
--  刷新后加载树出现问题
在菜单添加刷新按钮，clickg事件设为Syscmd.Table.Load()

刷新前加载树可以正常使用，刷新后再用加载树显示”此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据“，请大神指教。
--  作者：有点蓝
--  发布时间：2017/10/30 21:21:00
--  
表刷新后也需要重新刷新加载树
--  作者：aza520
--  发布时间：2017/10/30 21:59:00
--  
如何刷新加载树，这是加载树的NodeMouseDoubleClick事件。请教老师

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[项目名称] = \'" & dr("项目名称") & "\'"
        Case 1
            Filter = "[项目名称] = \'" & dr("项目名称") & "\' And [县] = \'" & dr("县") & "\'"
        Case 2
            Filter = "[项目名称] = \'" & dr("项目名称") & "\' And [县] = \'" & dr("县") & "\' And [乡] = \'" & dr("乡") & "\'"
    End Select
End If
Tables("S征地记录").Filter = Filter
--  作者：有点蓝
--  发布时间：2017/10/30 22:18:00
--  
调用代码重新生成加载树
--  作者：aza520
--  发布时间：2017/10/30 23:26:00
--  
Ok，原来如此，在刷新按钮里再调用。多谢了