以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何定位到日期为今日的行?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99833)

--  作者:wuzhouji
--  发布时间:2017/4/27 16:06:00
--  如何定位到日期为今日的行?
如题,如何定位到日期为今日的行?
--  作者:有点色
--  发布时间:2017/4/27 16:09:00
--  
Dim idx As Integer = Tables("表A").FindRow("日期 = #" & Date.Today & "#")
If idx >= 0 Then
    Tables("表A").position = idx
End If