以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  焦点移至数据列最底行问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148303)
--  作者：hcfbehero
--  发布时间：2020/4/4 11:22:00
--  焦点移至数据列最底行问题
各位大佬帮忙看下以下代码，数据表内数据行已远超过窗口显示行数，点击此按钮，焦点移至数据行最下面一行，但是在进行筛选后，就不起效了，求教，如何处理才能让其在进行筛选后，仍能将焦点移至最下面一行数据处。
代码如下：
Dim dr As DataRow
dr = DataTables("明细根表").Find("[生产信息_施工单位] Is Not null","CCSJ desc")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("明细根表").FindRow(dr)
    If wz >= 0 Then
        Tables("明细根表").Position = wz
    End If
End If
--  作者：sloyy
--  发布时间：2020/4/4 23:39:00
--  

FindRow(DataRow)

DataRow: 指定一个数据行

返回指定的数据行在Table中的位置

不是最后一行,所以你用wz肯定得不到正确结果

改一下试试

If wz >= 0 Then
        Tables("明细根表").Position =  Tables("明细根表").rows.count-1
    End If
--  作者：有点蓝
--  发布时间：2020/4/5 21:45:00
--  
每次筛选后都需要调用1楼代码设置一下