以文本方式查看主题 - 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=46588) |
-- 作者:xiaofengfeng -- 发布时间:2014/2/26 7:46:00 -- 在点击下一条记录按纽的时候点到最后一条记录怎么样自动返回到第一条 求解 |
-- 作者:lsy -- 发布时间:2014/2/26 8:24:00 -- If CurrentTable.Position = CurrentTable.Rows.Count - 1 Then CurrentTable.Position = 0 Else CurrentTable.Position + = 1 End If |
-- 作者:Bin -- 发布时间:2014/2/26 8:27:00 -- Dim ls As Integer = Tables("表A").Position+1 Tables("表A").Position=IIF(ls>(Tables("表A").Rows.count-1),0,ls)
|