Foxtable(狐表)用户栏目专家坐堂 → 获取筛选状态下最后一行数据


  共有1825人关注过本帖树形打印复制链接

主题:获取筛选状态下最后一行数据

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 

 


 回到顶部