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


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

主题：下一行随机
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		下一行随机  发帖心情 Post By：2016/11/17 12:05:00 [显示全部帖子]

问问 下一行在 Table1 里面随机可以吗？然后 随机完了 跳槽一个窗口 已经完成。
感谢 感谢  
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161117120237.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/17 12:34:00 [显示全部帖子]

感谢 可以加一个CheckBox1在什么吗？选中后才随机 如果没选中 就按顺序 下一行 ，如果是选中随机 当 Table1 都随机完后 弹出一个窗口，显示“已经完成”

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


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/18 22:09:00 [显示全部帖子]

如果选中随机后 不重复  都已经选中了一次了 然后在弹出一个窗口 已经完成 可以吗

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


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/19 19:20:00 [显示全部帖子]

我刚才试过了，谢谢 ，没有显示完就显示 弹出了窗口，如果太复杂了就算了吧，
随机不用管功能你之前棒我的那个就可以了谢谢 
我可以在加一点吗？就是 当 如果不是随机的时候 选到最后一行了 点击下一行 就跳到 第一行 ，然后还是排除已选过

Dim t As Table = Tables("主窗口_Table1")
If Forms("主窗口").Controls("CheckBox1").Checked
    Dim idx As Integer = Rand.Next(t.rows.count)
    t.Position = idx
ElseIf t.Position < t.Rows.Count + 1
    t.Position = t.Position + 1
End If

能帮忙看看这个吗？就是 当最后一行的时候 点击现一行 就条到第一行，然后为什么 当最后一行的时候 点击上一行 不能上去呢？
[此贴子已经被作者于2016/11/19 19:28:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/11/29 18:33:00 [显示全部帖子]

Dim drs As List(Of DataRow) = t.DataTable.Select("听写_状态 Is null Or 听写_状态 = '学习中'")
这段代码有问题吗 
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/4 23:05: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 Forms("考核窗口").Controls("CheckBox1").Checked
        Dim idx As Integer = Rand.Next(t.rows.count)
        t.Position = idx
    Else       
        Dim r As Row = t.current
        r("目录_状态") = "已学习"
    End If
End If

能帮我看看这个吗？
点击 下一行不选中 目录_状态 为 已学习
当最后一行时候点击 下一行 跳到第一行。

我把之前上次帮我做的代码改了又改还是不行 麻烦了 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/4 23:17: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 Forms("考核窗口").Controls("CheckBox1").Checked
        Dim idx As Integer = Rand.Next(t.rows.count)
        t.Position = idx
    ElseIf t.Position < t.Rows.Count - 1
        t.Position = t.Position - 1
        Dim r As Row = t.current
        r("目录_状态") = "已学习"
        
    End If
End If

代码没问题 我想在上面加两个功能 
一个是 当最后一行的时候点击按钮 跳到第一行 
就是 点击按钮的时候 下一行 不是 ("目录_状态") = "已学习"  感谢 感谢  
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/4 23:39: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("英语")
    Dim r As Row = t.current
    r("目录_状态") = "已学习"
    If Forms("考核窗口").Controls("CheckBox1").Checked
        Dim idx As Integer = Rand.Next(t.rows.count)
        t.Position = idx
Dim drs As List(Of DataRow) = t.DataTable.Select("目录_状态 Is null Or 目录_状态 <> '学习中'")
    Else
        If t.Position < t.Rows.Count - 1
            t.Position = t.Position + 1
        Else
            t.Position = 0
        End If
        msgbox("已学完")
    End If
End If

能帮我看看吗 为什么还是会选到 目录_状态 为'学习中 以为的 列表啊 感谢感谢  
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161204233422.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/5 9:52: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("英语")
    Dim r As Row = t.current
    r("目录_状态") = "已学习"
    If Forms("考核窗口").Controls("CheckBox1").Checked
        Dim idx As Integer = Rand.Next(t.rows.count)
        t.Position = idx
Dim drs As List(Of DataRow) = t.DataTable.Select("目录_状态 Is null Or 目录_状态 <> '学习中'")
    Else
        If t.Position < t.Rows.Count - 1
            t.Position = t.Position + 1
        Else
            t.Position = 0
        End If
        msgbox("已学完")
    End If
End If
当 目录_状态 列没有 '学习中 才显示 已学完 这个窗口， msgbox("已学完") 应该放在那里啊？
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/5 11:00: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("英语")
    'Dim r As Row = t.current
    r("目录_状态") = "已学习"
    't.Current("听写_次数") += 1
    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
            Dim sp As New DotNetSpeech.SpVoice()
            sp.Speak(r("目录_英文"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
            txt1.text = ""
        End If
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：啊啊啊啊.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/12/5 11:01:33编辑过]
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 5 次数据查询