下一行筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下一行筛选

共有2538人关注过本帖树形打印复制链接主题：下一行筛选

424318006

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：217 威望：0 精华：0 注册：2016/11/12 11:28:00

下一行筛选

Post By：2016/11/17 15:18:00 [只看该作者]

点击下一行

如果TextBox1 输入的内容与Label1符合（相同）

则光标下一行（在光标移动下一行时，不会选中听写结果列为过关的列），次数列加1（如果是0就改为1，如果是1就

改为2，如果是2就改为3）

读出移动后的Label1单词。

如果TextBox1 输入的内容与Label1不符合（不相同）

则发出指定音乐文档声音，

这个能实现吗

下载信息 [文件大小：下载次数： ]
点击浏览该文件:阅读.table

有点青

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/17 16:17:00 [只看该作者]

参考代码

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt1.text > "" AndAlso lbl1.text <> txt1.text Then
    msgbox("不匹配")
    'Audio.Play("d:\test.wav")
Else
    Dim t As Table = Tables("英语")
    If t.Position = t.Rows.Count-1 Then
        msgbox("已是最后一行")
    Else
        For i As Integer = t.Position+1 To t.Rows.Count-1
            Dim r As Row = t.Rows(i)
            If r("听写结果") <> "过关" Then
                t.Position = i
                r("听写次数") += 1
                Dim sp As New DotNetSpeech.SpVoice()
                sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
                Exit For
            End If
        Next
    End If
End If

424318006

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：217 威望：0 精华：0 注册：2016/11/12 11:28:00

Post By：2016/11/17 22:55:00 [只看该作者]

哇！好强大，只是为什么我还是读的字母啊？麻烦你了大神。

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111401 积分：567075 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/17 23:08:00 [只看该作者]

更换其它的语音库试试，http://www.foxtable.com/webhelp/scr/2240.htm，看示例七

https://www.baidu.com/baidu?word=%E7%B3%BB%E7%BB%9F%E8%AF%AD%E9%9F%B3%E5%BA%93&ie=utf-8&tn=myie2dg&ch=6

424318006

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：217 威望：0 精华：0 注册：2016/11/12 11:28:00

Post By：2016/11/19 12:04:00 [只看该作者]

TextBox1 里面没有输入也可以点下一行呢

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111401 积分：567075 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/19 14:15:00 [只看该作者]

测试没有问题，贴出出错代码

424318006

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：217 威望：0 精华：0 注册：2016/11/12 11:28:00

Post By：2016/11/19 17:51:00 [只看该作者]

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")

If txt1.text > "" AndAlso lbl1.text <> txt1.text Then

msgbox("不匹配")

'Audio.Play("d:\test.wav")

Else

Dim t As Table = Tables("英语")

If t.Position = t.Rows.Count-1 Then

msgbox("已是最后一行")

Else

For i As Integer = t.Position+1 To t.Rows.Count-1

Dim r As Row = t.Rows(i)

If r("听写结果") <> "过关" Then

t.Position = i

r("听写次数") += 1

Dim sp As New DotNetSpeech.SpVoice()

sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

Exit For

End If

出了两个问题，没输入内容一可以进入下一行，可以加一个随机不循环不？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:阅读 (1).table

有点青

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/20 10:21:00 [只看该作者]

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If lbl1.text <> txt1.text Then
    msgbox("不匹配")
    'Audio.Play("d:\test.wav")
Else
    Dim t As Table = Tables("英语")
    If e.Form.controls("checkbox1").checked Then
        Dim drs As List(Of DataRow) = t.DataTable.Select("听写结果 is null or 听写结果 <> '过关'")
        If drs.count > 0 Then
            Dim idx As Integer = Rand.Next(drs.count-1)
            t.position = t.FindRow(drs(idx))
            Dim r = t.current
            r("听写次数") += 1
            Dim sp As New DotNetSpeech.SpVoice()
            sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
            txt1.text = ""
        Else
            msgbox("全部过关")
        End If
    Else
        If t.Position = t.Rows.Count-1 Then
            msgbox("已是最后一行")
        Else
            For i As Integer = t.Position+1 To t.Rows.Count-1
                Dim r As Row = t.Rows(i)
                If r("听写结果") <> "过关" Then
                    t.Position = i
                    r("听写次数") += 1
                    Dim sp As New DotNetSpeech.SpVoice()
                    sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
                    txt1.text = ""
                    Exit For
                End If
            Next
        End If
    End If
End If

424318006

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：217 威望：0 精华：0 注册：2016/11/12 11:28:00

Post By：2016/11/20 13:10:00 [只看该作者]

麻烦你了，

现在有几个问题，

就是当输入正确后加 1 这个功能是输入到下一行了，第二就是点击随机会一直在第一行，可以取消最后一行改为当听写状态列全部都为过关后跳出窗口显示已听写完成，不要最后一行跳槽最后一行，如果最后一行了就调至第一行（听写状态不是过关的）

有点青

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/20 18:51:00 [只看该作者]

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If lbl1.text <> txt1.text Then
    msgbox("不匹配")
    'Audio.Play("d:\test.wav")
Else
    Dim t As Table = Tables("英语")
    t.Current("听写次数") += 1
    t.Current("听写结果") = "过关"
    If e.Form.controls("checkbox1").checked Then
        Dim drs As List(Of DataRow) = t.DataTable.Select("听写结果 is null or 听写结果 <> '过关'")
        If drs.count > 0 Then
            Dim idx As Integer = Rand.Next(drs.count-1)
            t.position = t.FindRow(drs(idx))
            Dim r = t.current
            Dim sp As New DotNetSpeech.SpVoice()
            sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
            txt1.text = ""
        Else
            msgbox("全部过关")
        End If
    Else
        Dim idx As Integer = t.FindRow("听写结果 is null or 听写结果 <> '过关'", t.Position+1, True)
        If idx = -1 Then
            msgbox("全部过关")
        Else
            Dim r As Row = t.Rows(idx)
            t.Position = idx
            r("听写次数") += 1
            Dim sp As New DotNetSpeech.SpVoice()
            sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
            txt1.text = ""
        End If
    End If
End If

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：下一行筛选