Foxtable(狐表) → 用户栏目 → 专家坐堂 → 隔行选择


  共有3682人关注过本帖树形打印复制链接

主题：隔行选择
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/3/7 15:05:00 [只看该作者]

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

为什么说找不到 学习中 呢 感谢 感谢 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106050 积分：539343 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/7 16:28:00 [只看该作者]

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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/3/13 17:10:00 [只看该作者]

感谢  感谢  为什么说找不到学习中呢 感谢 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,听想练习窗口,Button1,Click
详细错误信息：
未找到列 [学习中]。



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


[此贴子已经被作者于2017/3/13 17:10:07编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106050 积分：539343 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/13 17:11:00 [只看该作者]

 idx = t.FindRow("练习_状态 Is null Or 练习_状态 = '学习中'", t.Position+1, True)
    vars("pidx") = idx
    idx = t.FindRow("练习_状态 is null or 练习_状态 = '学习中'", idx+1, True)

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/4/23 9:57:00 [只看该作者]

能帮忙看看这个吗？感谢 ，点击按钮后 跳到下下行才读，回到上一行不读，感谢 感谢 

Dim t As Table = Tables("主窗口_Table1")
Dim idx As Integer
If vars("flag") = 0 Then
    idx = t.FindRow("练习_状态 Is null Or 练习_状态 = '学习中'", t.Position+1, True)
    vars("pidx") = idx
    
    Dim sp As New DotNetSpeech.SpVoice()
    sp.Speak(e.Form.Controls("Label2").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
    
    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
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/23 11:15:00 [只看该作者]

 没看懂你的意思，上传实例说明问题。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/4/23 13:11:00 [只看该作者]

撇开红色的代码就是 点击第一下后下两行，读出内容，点第二下后 上一行，不读出内容 
感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单行读取.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/23 13:21:00 [只看该作者]

Dim t As Table = Tables("窗口2_Table1")
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

Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/4/23 13:29:00 [只看该作者]

谢谢 谢谢 ，可以光标往下选中后读出来吗，然后如果光标往上选择后就不读出来。感谢 感谢 

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/23 13:50:00 [只看该作者]

 没看懂你说的问题。

 
 回到顶部
总数 41 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询