以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Table在筛选状态下插入行或新增行时自动添加默认值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101514)

--  作者:xvkewen
--  发布时间:2017/6/1 21:43:00
--  Table在筛选状态下插入行或新增行时自动添加默认值

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

 

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


图片点击可在新窗口打开查看此主题相关图片如下:cc.jpg
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2017/6/1 22:09:00
--  

增加行

 

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


--  作者:有点色
--  发布时间:2017/6/1 22:12:00
--  

插入行

 

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


--  作者:xvkewen
--  发布时间:2017/6/2 20:53:00
--  

谢谢老师;