以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74872)

--  作者:qinlao666
--  发布时间:2015/9/21 16:55:00
--  当前行
Dim temp As String = Tables("报价主表").Filter
Dim idx As String = Tables("报价主表").Current("_Identify")
Tables("报价主表").DataTable.Load
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = \'" & idx & "\'")

上面的代码是写在计划管理里面的,

“报价主表”重载一次后,指向当前行

现在问题是:我新增一行后,重载后就指到第一行了,

我想新增一行后,还是指向我新增的这行

请老师帮忙,谢谢!

另还有个问题,如果当前行   在  除当前屏幕的最后一行的任意位置,重载后屏幕就会跳到,当前行到此屏的最后一行了,
能否不让他跳转啊

--  作者:大红袍
--  发布时间:2015/9/21 17:04:00
--  
Dim temp As String = Tables("报价主表").Filter
Tables("报价主表").Current.Save
Dim idx As String = Tables("报价主表").Current("_Identify")
Tables("报价主表").DataTable.Load
Tables("报价主表").Filter = temp
Tables("报价主表").Position = Tables("报价主表").FindRow("_Identify = \'" & idx & "\'")