- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请大师帮我看一下 我这个保存代码如何实现停留在临时表里 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94595)
-- 发布时间：2016/12/27 17:04:00
-- [求助]请大师帮我看一下 我这个保存代码如何实现停留在临时表里
查询是在主窗口中的，
保存是录入窗口中的，
现在在查询后临时表里，我如果改变某一行后点击保存会返回总表，不会停留在查询表里，这样让录入变的很不方便。
请问大师要如何更改呢？
[此贴子已经被作者于2016/12/27 17:05:39编辑过]
-- 发布时间：2016/12/27 17:25:00
--
你的意思是，不关闭窗口？
把这句代码删掉 e.Form.close
-- 发布时间：2016/12/27 17:28:00
--
1.我在主窗口中查询后 table1显示的是一个临时表
2.在录入窗口保存后，会刷新总表，所以会返回显示到总表 而不是停留在临时表。
现实状况： 我在查询某以列后，想把查询出来的所有行都要更改，但是每保存一次 就需要再点一次查询。
[此贴子已经被作者于2016/12/27 17:32:50编辑过]
-- 发布时间：2016/12/27 17:44:00
--
......
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编辑过]
-- 发布时间：2016/12/27 17:48:00
--
啊 对了 谢谢老师了 脑子没转过来..