Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教一个代码怎么写；


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

主题：[求助]请教一个代码怎么写；
帅哥哟，离线，有人找我吗？
szoriental
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		[求助]请教一个代码怎么写；  发帖心情 Post By：2015/10/5 9:03:00 [只看该作者]

有一个表，有编号列； 数字列1； 数字列2； 数字列3； 数字列4；如下：

编号列； 数字列1； 数字列2； 数字列3； 数字列4
0001       1              5            6           10
0002        2             3            8            20
0003        4             5            6            8

在窗口中做筛选，比如我输入数字“1”时，自动显示有“1”这个数字这一行的下一行（也就是0002行）；输入数字“2”时，自动显示0003这一行；请教一下代码要怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/5 10:30:00 [只看该作者]

还没上班吗？

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


加好友 发短信
等级：一尾狐 帖子：427 积分：4529 威望：0 精华：0 注册：2012/3/7 23:19:00 		  发帖心情 Post By：2015/10/5 20:41:00 [只看该作者]

Dim jh As List(of DataRow) = DataTables("表A").Select("数字列1 = 1")
Dim flt As String
For Each xh As DataRow In jh
  Dim i As Integer = Tables("表A").FindRow(xh)
  flt = flt & "," & Tables("表A").Rows(i+1)("编号列")
Next
flt = flt.trim(",")                 
Tables("表A").Filter = "编号列 in (" & flt & ")"    
 回到顶部
帅哥哟，离线，有人找我吗？
szoriental
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1252 威望：0 精华：0 注册：2012/8/26 17:30:00 		  发帖心情 Post By：2015/10/6 23:01:00 [只看该作者]

以下是引用xuezxz在2015/10/5 20:41:00的发言：
Dim jh As List(of DataRow) = DataTables("表A").Select("数字列1 = 1")
Dim flt As String
For Each xh As DataRow In jh
  Dim i As Integer = Tables("表A").FindRow(xh)
  flt = flt & "," & Tables("表A").Rows(i+1)("编号列")
Next
flt = flt.trim(",")                 
Tables("表A").Filter = "编号列 in (" & flt & ")"    
请教一下是在哪个控件的哪个事件里面写？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 9:43:00 [只看该作者]

TextChanged事件

 

Dim jh As List(of DataRow) = DataTables("表A").Select("数字列1 = '" & e.Sender.Text & "'")
Dim flt As String
For Each xh As DataRow In jh
  Dim i As Integer = Tables("表A").FindRow(xh)
  flt = flt & "," & Tables("表A").Rows(i+1)("编号列")
Next
flt = flt.trim(",")                 
Tables("表A").Filter = "编号列 in (" & flt & ")"  
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询