以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选状态中插入行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109494)

--  作者:kaituozhe
--  发布时间:2017/11/13 16:39:00
--  筛选状态中插入行
筛选状态中能否插入行?
--  作者:有点甜
--  发布时间:2017/11/13 20:07:00
--  
 不可以。
--  作者:kaituozhe
--  发布时间:2017/11/14 8:19:00
--  

我试了,在窗口中可以插入行,怎么知道插入行的位置呢?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.foxdb


--  作者:有点甜
--  发布时间:2017/11/14 8:41:00
--  
 不论在哪里,表格在筛选在状态下,表格都不能插入行。你插入行的不是窗口表,而是主表,主表没有筛选。
--  作者:kaituozhe
--  发布时间:2017/11/14 8:45:00
--  
那怎么能够知道插入的这一行在主表中的位置,然后在这行中写入自己需要的信息?
--  作者:有点蓝
--  发布时间:2017/11/14 9:00:00
--  
Dim r As Row = Tables("表A").InsertNew
Output.Show(r.Index)
r("第一列") = xxx
[此贴子已经被作者于2017/11/14 9:00:42编辑过]

--  作者:有点甜
--  发布时间:2017/11/14 9:00:00
--  

你可以模拟插入行

 

Dim t As Table = Tables("窗口1_Table1")
Dim r As Row = t.Current
Dim dr As DataRow = t.DataTable.addnew()
dr("第一列") = format(Date.Now, "HHmmss")
dr("_sortkey") = r("_sortkey") - 0.01
t.filter = iif(t.filter>"", t.filter & " or _Identify = " & dr("_Identify"), "")
Dim i = t.findrow("_Identify = " & r("_Identify"))
t.position = i