主题：Table在筛选状态下插入行或新增行时自动添加默认值

如下图，右表中的内容是用左边的筛选树中的“侧翼”节点筛选过了的，目前在这个状态下新增一行和插入一行都不能直接显示出来，必须在显示所有行的情况下才能看到刚刚新增加的行；

现在想在这个筛选状态下新增一行和插入一行都能在【办房部位】一列添加默认值（按节点筛选的值）并将新增行显示在当前界面；求支招。

此主题相关图片如下：cc.jpg

增加行

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim nr As Row = Tables("表A").AddNew
If nd IsNot Nothing Then
    nr("第一列") = nd.Text
End If

插入行

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim nr As Row = Tables("表A").InsertNew
If nd IsNot Nothing Then
    nr("第一列") = nd.Text
End If

谢谢老师；