以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么实现一切换表头就同步当前表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60907)

--  作者:xjc620
--  发布时间:2014/12/3 20:36:00
--  怎么实现一切换表头就同步当前表
怎么实现一切换表头就同步当前表,就是切换到哪个表时一点表头就先同步,然后把鼠标定位到当前表有数据的最后一行,就是准备要输入的那行
--  作者:有点甜
--  发布时间:2014/12/3 20:39:00
--  

 在MainTableChanging事件写代码

 

DataTables(e.NewTableName).Load
Tables(e.NewTableName).Position = Tables(e.NewTableName).Rows.Count - 1

 


--  作者:xjc620
--  发布时间:2014/12/3 20:49:00
--  
这个是选择不同主表前同步,同步的是哪个表,比如在表1时点表2,是同步的表1还是表2,记录的哪个表的最后一行
--  作者:有点甜
--  发布时间:2014/12/3 20:52:00
--  

  没有表头的点击事件,反正你要同步哪个表就在哪个事件写代码

 

DataTables("表A").Load
Tables("表A").Position = Tables("表A").Rows.Count - 1

 


--  作者:xjc620
--  发布时间:2014/12/3 20:53:00
--  
我是想切换到哪个表,同步哪个表,还要一个表一个表写事件吗,有简单一点吗?就是同步当前表
[此贴子已经被作者于2014-12-3 20:54:50编辑过]

--  作者:有点甜
--  发布时间:2014/12/3 20:56:00
--  
 你就写到CurrentTableChanged事件。
[此贴子已经被作者于2014-12-3 20:56:38编辑过]

--  作者:xjc620
--  发布时间:2014/12/3 21:02:00
--  
同步的是当前表,代码怎么写,不用一个一个写表名吧
--  作者:有点甜
--  发布时间:2014/12/3 21:08:00
--  
 CurrentTable.DataTable.Load
CurrentTable.Position = CurrentTable.Rows.Count - 1

--  作者:xjc620
--  发布时间:2014/12/3 21:12:00
--  
这个是到表的最后一行,我想要有数据的最后一行,下面有空白行的
--  作者:有点甜
--  发布时间:2014/12/3 21:15:00
--  

CurrentTable.DataTable.Load
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