主题：加载树中想加入新增行命令出错

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
ElseIf e.node.Text = "Add" Then
    Tables("任务组").AddNew。。。。。。。。。。。。。。。。。。。。。。。。。。。。。》这句写错了么？
Else
    Dim ary() As String = e.Node.FullName.Split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & ""
        Case 1
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & " And Year(日期) = " & ary(1)
    End Select
End If

双击节点后，表有新增行，但马上一霎而过自己删掉了，为何？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3 (1).foxdb

1、窗口表设置了筛选，导致没显示出来；

 

2、窗口表不要用副本表，改用主表吧。

 

3、上传例子。

已上传例子

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
ElseIf e.node.Text = "Add" Then
    Tables("任务组").AddNew
Else
    Dim ary() As String = e.Node.FullName.Split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & ""
        Case 1
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & " And Year(日期) = " & ary(1)
    End Select
    With DataTables("任务组")
        .LoadFilter = Filter '设置加载条件
        .LoadPage = 0 '加载第一页
        .LoadTop = 5 '每页5行
        .Load()
    End With
End If