以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下一记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97381)
--  作者：刘林
--  发布时间：2017/3/10 21:31:00
--  下一记录
老师，你好有两个问题请教
1、有个查找文本框，在里面不能改成我要用的五笔输入法，但在其他地方却能，这是什么原因，怎么办。
2、在窗口中有的表有复选框，我想针对有复选框的记录操作，做一个下一条记录按键，记录就跳到下一条有选择的记录。
谢谢
--  作者：有点蓝
--  发布时间：2017/3/10 22:05:00
--  
1、输入法的东西能用就用，不能用就只能换其它输入法

2、从当前记录开始顺序往下，逐行查找复选框为true的记录，设置tables().posision
--  作者：刘林
--  发布时间：2017/3/11 19:04:00
--  

Dim t As Table = Tables("学生信息")
Dim rs As List(of Row) = Tables("学生信息").GetCheckedRows
If rs.Count > 0 Then \'如果存在符合条件的行
    Dim dq As Integer = t.Position +1
    For i As Integer = dq To t.Rows.Count -1
        If t.Rows(i).Checked = True Then
            t.Position = i
            Exit For
        End If
    Next
Else
    t.position = t.position +1
End If

 

老师，请问想实现当到了最后一行，要重新从第一条记录找起走如何改？谢谢

 
--  作者：有点色
--  发布时间：2017/3/12 20:54:00
--  
Dim t As Table = Tables("学生信息")
Dim rs As List(of Row) = Tables("学生信息").GetCheckedRows
If rs.Count > 0 Then \'如果存在符合条件的行
    Dim dq As Integer = t.Position +1
    For i As Integer = dq To t.rows.count -1
        If t.Rows(i).Checked = True Then
            t.Position = i
            Exit For
        End If
    Next
    If dq <> t.Position + 1 Then
        For i As Integer = 0 To dq
            If t.Rows(i).Checked = True Then
                t.Position = i
                Exit For
            End If
        Next       
    End If
Else
    t.position = t.position +1
End If