以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么进入主窗口定位光标为最后一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61412)

--  作者:xjc620
--  发布时间:2014/12/11 21:41:00
--  怎么进入主窗口定位光标为最后一行
是有数据的最后一行,不包括空白行
--  作者:有点甜
--  发布时间:2014/12/11 21:43:00
--  
以前给你写过了啊
--  作者:xjc620
--  发布时间:2014/12/11 21:47:00
--  
发的太多了找不到了,找了半一天了
--  作者:有点甜
--  发布时间:2014/12/11 21:48:00
--  
Dim idx As Integer = CurrentTable.FindRow(CurrentTable.DataTable.Find("第一列 Is not null", "_Identify desc"))
If idx > -1 Then
    CurrentTable.Position = idx
Else
    CurrentTable.Position = CurrentTable.Rows.Count - 1
End If
--  作者:有点甜
--  发布时间:2014/12/11 21:48:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=60907&skin=0

 


--  作者:xjc620
--  发布时间:2014/12/11 22:03:00
--  
加到哪个事件啊,因为一个主窗口里有两个表,要同时定位两个表
--  作者:有点甜
--  发布时间:2014/12/11 22:08:00
--  

 maintableChanged 事件

 

Dim idx As Integer = Tables("表A").FindRow(Tables("表A").DataTable.Find("第一列 Is not null", "_Identify desc"))
If idx > -1 Then
    Tables("表A").Position = idx
Else
    Tables("表A").Position = Tables("表A").Rows.Count - 1
End If