以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取筛选状态下最后一行数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109848)
--  作者：实话实说
--  发布时间：2017/11/21 13:26:00
--  获取筛选状态下最后一行数据
以下是复制上一行数据的代码,最后一行是DataTable的最后一行。我想要筛选后的最后一行，直接换成Table吗？
\'复制所有列
If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
For Each dc As DataCol In e.DataTable.DataCols 
    e.DataRow(dc.Name) = dr(dc.Name) \'将最后一行的内容复制到新增行中.
Next
--  作者：有点甜
--  发布时间：2017/11/21 14:46:00
--  

 要改成具体的表名，如

 

Dim t As Table = Tables("表A")
If t.Rows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim dr As Row = t.rows(t.Rows.Count - 1) \'获得最后一行
For Each dc As Col In t.Cols
    e.DataRow(dc.Name) = dr(dc.Name) \'将最后一行的内容复制到新增行中.
Next