Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口中的table怎样筛选特定范围的行？


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

主题：[求助]窗口中的table怎样筛选特定范围的行？
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/20 16:23:00 [显示全部帖子]

Dim drs = DataTables("货位表").Select("产品编码='123'")
Dim str As String = "-1,"
For i As Integer = 1 To 5
    If drs.count >= i Then
        Dim dr As DataRow = drs(i-1)
        str &= dr("_Identify") & ","
    End If
Next
msgbox(str)
For i As Integer = 5 To 1 Step -1
    If drs.count-i >= 0 Then
        Dim dr As DataRow = drs(drs.count-i)
        str &= dr("_Identify") & ","
    End If
Next
msgbox(str)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/21 16:05:00 [显示全部帖子]

判断表名

 

msgbox(e.table.name)

If Forms("关联产品").Opened() andAlso e.table.name = "产品表" Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/21 16:48:00 [显示全部帖子]

产品表，currentchanged事件：

If Forms("关联产品").Opened() Then
    Dim t As Table = Tables("关联产品_Table1")
    Dim dr As DataRow
    Dim id As Integer
    With Tables("产品表")
        If Tables("产品表").Current Is Nothing Then
            t.Filter = "False"
        Else
            dr = DataTables("货位表").Find("产品编码 = " & "'" & e.Table.Current("产品编码") & "'") 
            id = dr("_Identify")
systemready = false
            t.Filter = "_Identify >= '" & id-5 & "' And _Identify <= '" & id+5 & "'"
            Tables("关联产品_Table1").Position = 5
systemready = true
        End If
    End With
End If

 
窗口“关联产品”的“table1”的currentchanged事件，代码如下：

If e.Table.Current Is Nothing Then

    Return

End If

Dim wz As Integer

Dim dr As DataRow

dr = DataTables("产品表").Find("[产品编码] = '" & e.Table.Current("产品编码") & "'")

If dr IsNot Nothing Then

    wz = Tables("产品表").FindRow(dr)

    If wz >= 0 Then

systemready = false

        Tables("产品表").Position = wz

systemready = true

    End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/22 16:55:00 [显示全部帖子]

currentChanged事件加上代码

 

If e.Table.Current Is Nothing Then

    Return

End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询