e.Form.Controls("Label8").Visible = False '隐藏控件
Dim t As Table = Tables("单词")
Dim idx As Integer
If vars("flag") = 0 Then
idx = t.FindRow("阅读_状态 Is null Or 阅读_状态 = 学习中", t.Position+1, True)
vars("pidx") = idx
idx = t.FindRow("阅读_状态 is null or 阅读_状态 = 学习中", idx+1, True)
vars("flag") = 1
Else
idx = vars("pidx")
vars("flag") = 0
End If
If idx = -1 Then
msgbox("已复习完")
Else
Dim r As Row = t.Rows(idx)
t.Position = idx
End If
为什么说找不到 学习中 呢 感谢 感谢
加好友 
发短信
Post By：2017/3/7 15:05:00 [只看该作者]
