以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]所用表切换后光标定位到最后一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185846)

--  作者:miaoqingqing
--  发布时间:2023/3/21 9:17:00
--  [求助]所用表切换后光标定位到最后一行
下面代码只能是1个表,如果要全部项目的所有表切换后光标都到最后一行,下面代码怎么修改? 求助

If  MainTable.Name = "知识库"  Then  \'如果选择的主表是订单表
    With Tables("知识库")
        If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
            .Position = .Rows.Count - 1
        End If
    End With
    
End  If


--  作者:cd_tdh
--  发布时间:2023/3/21 9:25:00
--  
代码写到项目事件
[此贴子已经被作者于2023/3/21 9:34:39编辑过]

--  作者:有点蓝
--  发布时间:2023/3/21 9:31:00
--  
    With MainTable
        If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
            .Position = .Rows.Count - 1
        End If
    End With