以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口中重新加载后焦点怎样仍然定位到原来的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119769)

--  作者:zhaohj611718
--  发布时间:2018/5/31 16:20:00
--  窗口中重新加载后焦点怎样仍然定位到原来的行
窗口中重新加载后焦点怎样仍然定位到原来的行
--  作者:有点甜
--  发布时间:2018/5/31 16:24:00
--  

Dim i As Integer = Tables("表A").Current("_Identify")

\'重新加载

Dim idx As Integer = Tables("表A").FindRow("_Identify = " & i)

If idx >= 0 Then

    Tables("表A").position = idx

End If


--  作者:zhaohj611718
--  发布时间:2018/5/31 16:39:00
--  
谢谢,很好用图片点击可在新窗口打开查看