以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  怎么做每日一学？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154017)

--  作者：第一次学软件 --  发布时间：2020/9/1 11:08:00 --  怎么做每日一学？ 蓝老师： 表中一列为学习知识点，每天打开只学一条，第二天学下面一条，学到最后一条，自动返回到第一条，如此循环往复 下面做的是打开一次，自动循环的，如何按日 Dim t As Table = Tables("天天向上") If t.Rows.Count = t.position+1 Then     t.Position = 0 Else     t.Position += 1 End If

--  作者：有点蓝 --  发布时间：2020/9/1 11:44:00 --   新建一个表，有日期列和索引列，记录当天的索引，只有一行数据 Dim t As Table = Tables("天天向上") Dim dr As DataRow = DataTables("新表").datarows(0) If dr.isnull("日期") Then     t.Position = 0     dr("日期") = Date.today     dr("索引") = 0 Else     Dim idx As Integer = dr("索引")     If dr("日期") < Date.today Then         If idx = t.Rows.Count - 1 Then             idx = 0         Else             idx += 1         End If         dr("日期") = Date.today         dr("索引") = idx     End If     t.Position = idx End If