Foxtable(狐表)用户栏目专家坐堂 → 数据查找


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

主题:数据查找

帅哥哟,离线,有人找我吗?
985123414
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:35 积分:316 威望:0 精华:0 注册:2023/3/7 8:48:00
数据查找  发帖心情 Post By:2023/11/23 11:57:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.xlsx

老师您好,我想在foxtable中按身份证号筛选出excel中的数据应该怎么实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/23 12:04:00 [只看该作者]

筛选后的结果放到哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
985123414
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:35 积分:316 威望:0 精华:0 注册:2023/3/7 8:48:00
  发帖心情 Post By:2023/11/23 16:40:00 [只看该作者]

想要直接显示在foxtable表A中
[此贴子已经被作者于2023/11/23 16:40:43编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/23 16:48:00 [只看该作者]

表A就2个列,不已经有数据了吗?如果是要从execl合并数据到表A,参考:http://www.foxtable.com/webhelp/topics/2334.htm

 回到顶部
帅哥哟,离线,有人找我吗?
985123414
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:35 积分:316 威望:0 精华:0 注册:2023/3/7 8:48:00
  发帖心情 Post By:2023/11/23 16:52:00 [只看该作者]

老师现在表A中是全部数据,excel中是部分数据,如果想要把excel中的数据在表A中筛选出来,有没有办法呀?

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/23 16:55:00 [只看该作者]

表A增加一个逻辑列,使用4楼的方法,使用find查询如果有,就勾选上

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/23 16:58:00 [只看该作者]

大概这样

Dim 
Book As New XLS.Book("c:\test\123.xlsx")
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)

For
 n As Integer = 1 To Sheet.Rows.Count -1
    
Dim bh As String = sheet(n,0).Text
    
Dim dr As DataRow = DataTables("表A").Find("身份证 = '" & bh & "'")
    If 
dr Isnot Nothing Then '如果不存在同编号的订单
        
dr("逻辑列") = true
    End If

Next


 回到顶部