以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据查找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189303)

--  作者:985123414
--  发布时间:2023/11/23 11:57:00
--  数据查找
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.xlsx

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


--  作者:有点蓝
--  发布时间:2023/11/23 12:04:00
--  
筛选后的结果放到哪里?
--  作者:985123414
--  发布时间:2023/11/23 16:40:00
--  
想要直接显示在foxtable表A中
[此贴子已经被作者于2023/11/23 16:40:43编辑过]

--  作者:有点蓝
--  发布时间:2023/11/23 16:48:00
--  
表A就2个列,不已经有数据了吗?如果是要从execl合并数据到表A,参考:http://www.foxtable.com/webhelp/topics/2334.htm
--  作者:985123414
--  发布时间:2023/11/23 16:52:00
--  
老师现在表A中是全部数据,excel中是部分数据,如果想要把excel中的数据在表A中筛选出来,有没有办法呀?
--  作者:有点蓝
--  发布时间:2023/11/23 16:55:00
--  
表A增加一个逻辑列,使用4楼的方法,使用find查询如果有,就勾选上
--  作者:有点蓝
--  发布时间: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