[求助]请大师帮我看一下我这个保存代码如何实现停留在临时表里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

查询是在主窗口中的，

保存是录入窗口中的，

现在在查询后临时表里，我如果改变某一行后点击保存会返回总表，不会停留在查询表里，这样让录入变的很不方便。

请问大师要如何更改呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:录入保存.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:查询.txt

[此贴子已经被作者于2016/12/27 17:05:39编辑过]

你的意思是，不关闭窗口？

把这句代码删掉 e.Form.close

1.我在主窗口中查询后 table1显示的是一个临时表

2.在录入窗口保存后，会刷新总表，所以会返回显示到总表而不是停留在临时表。

现实状况：我在查询某以列后，想把查询出来的所有行都要更改，但是每保存一次就需要再点一次查询。

[此贴子已经被作者于2016/12/27 17:32:50编辑过]

......

Dim t As Table = Tables("URL总表_Tbl_Main")

Dim filter As String = t.Filter

Dim Int As Integer = t.Position '获取行位置

Dim p As point = t.ScrollPosition '获取行在屏幕中位置

t.StopRedraw

t.DataTable.save(True)

t.DataTable.Load(True)

t.Sort = "序号"

t.Position = Int

t.ScrollPosition = p

t.ResumeRedraw

Tables("URL总表_Tbl_Main1").DataTable.Save

Tables("URL总表_Tbl_Main1").DataTable.Load

Tables("URL总表_Tbl_Main1").Sort = "序号"

DataTables("操作日志").save

If Forms("URL总表").Controls("Cmb_FilterCol").Value = "" Then Return

Functions.Execute("BuildFilterTree",Forms("URL总表").Controls("Tvw_Left"),Forms("URL总表").Name & "_Tbl_Main",Forms("URL总表").Controls("Cmb_FilterCol").Value.Replace(",","|"))

'Forms("URL总表").Controls("Tvw_Left").Nodes.Clear() '清除现有节点

'Forms("URL总表").Controls("Tvw_Left").BuildTree("url表", "类型|部门|客户端二级栏目|客户端三级栏目")

'Forms("URL总表").Controls("Tvw_Left").Nodes.Insert("显示所有行",0)

t.Filter = filter

[此贴子已经被作者于2016/12/27 17:44:27编辑过]

啊对了谢谢老师了脑子没转过来..

主题：[求助]请大师帮我看一下 我这个保存代码如何实现停留在临时表里

主题：[求助]请大师帮我看一下我这个保存代码如何实现停留在临时表里